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HIGH  FREQUENCY  (HF)  AND  METEOR  BURST  COMMUNCIATIONS 

IN  A  POLAR  ENVIRONMENT 


BACKGROUND 

HF  radio  provides  a  low-cost,  long-range  communications  alternative  to  SATCOM.  In  the 
polar  environment,  however,  the  frequent  occurrence  of  dense  sporadic  £  layers  during  summer 
in  high-sunspot  periods  can  prevent  propagation  in  the  HF  band  for  the  desired  communication 
ranges.  During  solar  storms,  intense  radiation  may  induce  significant  D-region  absorption  which 
further  reduces  the  utility  of  HF  radio.  These  phenomena  cannot  be  defeated  by  the  use  of 
automatic  link  establishment  (ALE)  HF  radio  equipment  because  of  the  broadband  nature  of 
these  effects.  The  use  of  VHF  communication  techniques,  such  as  meteor  scatter,  provide  a 
viable  supplement  to  maintain  connectivity  when  normal  ALE  HF  radio  is  ineffective.  This 
study  combines  the  analysis  of  Scott  Base  lonosonde  data  with  computer  predictions  using  A 
Stand-Alone  Prediction  Program  (ASAPS)  from  the  Australian  Radio  Prediction  Service  and 
lONCAP  from  the  Institute  for  Telecommunication  Services  of  the  US  Department  of 
Commerce  to  quantify  the  possibility  of  HF  communications  and  suggest  suitable  radio  system 
design  parameters.  Similarly,  predictions  of  meteor  burst  (MB)  link  performance  are  provided 
for  comparison  with  available  measurements  so  that  comparisons  may  be  performed  with  actual 
link  operations.  Finally,  an  HFATIF  radio  system  design  is  envisioned  to  meet  polar 
communications  requirements  and  follow-on  work  to  develop  and  verify  design  details  is 
recommended. 

mTRODUCTION 

HF  Communications 

The  Division  of  Polar  Programs  (DPP)  of  the  National  Science  Foundation  (NSF)  as  well  as 
the  Naval  Undersea  Warfare  Center  (NUWC)  of  the  US  Navy  share  a  common  need  for  high- 
latitude  radio  communications  for  their  respective  constituents.  In  addition  to  satellite 
communications  (SATCOM),  HF  skywave  radio  provides  a  viable  long-range  circuit  for  both 
voice  and  data.  The  DPP  employs  HF  for  regular  communications  between  McMurdo  Station 
and  Christchurch,  New  Zealand  as  well  as  from  McMurdo  or  Christchurch  to  intransit  aircraft. 
HF  links  are  also  possible  between  the  many  US  and  international  bases  and  semipermanent 
outposts.  These  links  are  depicted  in  Fig.  1.  It  provides  a  valuable  technique  for  emergency 
communications  with  field  parties  operating  from  temporary  encampments  within  several 
hundred  miles  of  these  established  facilities.  These  short-range  HF  links  employ  near-vertical 
incidence  skywave  (NVIS)  propagation  paths  which  necessarily  employ  frequencies  in  the  lower 
portion  of  the  HF  band  combined  with  ray  elevation  angles  approaching  90*’. 
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The  ongoing 

development  of  automatic 
link  establishment  (ALE) 
techniques  has 

computerized  the 

frequency-selection 
process  at  the  cost  of 
increased  channel 

overhead  and  terminal 
sophistication.  Real-time 
network  operation  and 
frequency  management 
techniques  are  under 
development,  with 

MIL-STD-188-141A 
providing  the  fundamental 
industry  guide  to 
guarantee  operational 
interoperability  between 
different  vendor's 

products.  NSF  is 
evaluating  the  utility  of 
ALE  HF  ladio  to  meet  its 
point-to-point,  point-to- 
area,  and  ground-to-air 
communication 
requirements.  The 

fundamental  system 
design  tradeoff  for  the  use 
of  HF  radio  is  the 
maximum  required 

transmit  power  versus 
ALE  frequency-set 

selection  and  network 
operation.  In  other  words, 
does  the  use  of 
appropriate  ALE 

frequency  scan  sets 
combined  with  the  path  diversity  via  relaying  by  a  wide-area  HF  networks  significantly  reduce 
the  transmit  power  required  to  support  successful  skywave  communications?  The  objective  of 
this  study  is  to  answer  this  system  design  question  through  the  utilization  of  available 
environmental  measurements,  application  of  validated  computer  models,  and  the  development  of 
systems  architecture. 

An  ionosonde  operated  at  Scott  Base  in  Antarctica  has  provided  many  years  of  nearly 
continuous  vertical  incidence  measurements  of  critical  frequencies,  virtual  reflection  heights. 


2 


and  oblique-incidence  MUF  factors.  This  data  provides  a  valuable  empirical  basis  for  the 
validation  of  radio  circuit  models  for  HF  link  performance  prediction  in  the  polar  environment, 
particularly  for  links  whose  midpoint  is  located  above  Scott  Base  (see  Fig.  2).  These  predictions 
provide  a  useful  analytic  tool  for  link  and  network  design  inasmuch  as  frequency  selection  is 
concerned,  but  they  fall  short  of  establishing  validated  estimates  of  transmitter  power 
requirements.  Preliminary  ALE  operation  has  been  demonstrated  on  several  HF  links  between 
Antarctica,  New  Zealand,  and  Australia.  The  resulting  multiple  link  performance  records  in 
combination  with  the  Scott  Base  ionosonde  data  provides  an  important  set  of  validation  data  for 
model  predictions  of  required  signal-to-noise  ratio  (SNR).  In  addition,  they  are  directly  usable 
for  the  derivation  of  path  diversity  gain  and  frequency/network  management  strategies  to 
minimize  transmitter  power  while  minimizing  message  delay  and  maximizing  throughput. 

MB  Communications 

VHF  MB  radio  may  be  feasible  for  point-to-point  links  up  to  2000-km  range  or  point-to-area 
and  ground-air  links  below  about  1000-km  range  as  shown  in  Fig.  3.  The  principal  advantage  of 
MB  radio  is  the  use  of  a  single  frequency  combined  with  the  resilience  of  VHF  ionospheric 
propagation  in  a  disturbed  ionosphere  as  compared  to  HF  radio  on  equivalent  paths.  In 
particular,  polar  cap  absorption 
(PCA)  events  have  been  shown 
to  produce  significant  HF 
outages  while  VHF  MB  links 
have  continued  to  operate.  This 
result  is  due  to  the  approximate 
proportionality  of  absorption  to 
the  inverse  square  of  signal 
frequency,  thus  producing  less 
absorption  in  the  VHF  then  the 
HF  bands. 

Recently,  Hadron  MB 
terminals  and  five-element  Yagi 
antennas  were  operated  on  a 
1400-km  link  from  McMurdo  to 
Byrd  Station.  The  objectives  of 
this  experiment  were  to 
accumulate  experimental  MB 
data  for  model  validation  and  demonstrate  MB  link  performance  in  Antarctica.  This  same 
equipment  had  been  operated  on  a  600-km  link  in  CONUS  in  1989.  In  both  cases,  single  five- 
element  Yagi  antennas  were  employed  with  1-kW  transmit  powers.  Recently,  order  of 
magnitude  increase  in  link  throughputs  has  been  demonstrated  by  the  Meteor  Communications 
Corporation  using  adaptive  antenna  beamforming  techniques  at  the  receive  site.  These  results 
are  being  repeated  and  enhanced  by  the  application  of  beamforming  techniques  to  both  transmit 
and  receive  arrays  as  part  of  an  ARPA  program  for  the  improvement  of  MB  communications 
technology.  Both  point-to-point  and  point-to-area  applications  for  high  ERP  MB  link 
configurations  are  discussed  in  the  pre-publication  of  the  MILCOM'93  paper  included  in 
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Appendix?  of  this  report.  The  recent  availability  of  MB  terminals  from  discontinued 
Government  communications  programs  makes  the  acquisition  of  advanced  MB  technology 
attractive  to  the  NSF  and  NUWC  applications  in  Antarctica  and  elsewhere. 

The  Antarctic  test  of  MB  terminals  demonstrated  a  persistent  non-meteoric  propagation 
mechanism,  possibly  sporadic  E,  which  dominated  link  performance.  Although  this  phenomena 
masked  most,  if  not  all,  meteor  trail-scatter  events,  it  demonstrated  nearly  continuous  VHP 
coimectivity  at  a  range  of  about  1400  km.  Certainly,  meteor  scatter  would  have  provided  typical 
MB  link  throughput  for  the  configuration  employed  had  these  enhanced  modes  not  been  present. 
Moreover,  it  suggests  that  lower  antenna  gain  and/or  transmitter  power  could  have  been  used 
while  maintaining  acceptable  communications.  These  values  could  be  further  reduced  by  the  use 
of  a  high-gain  adaptive  antenna  at  the  base  station  (e  g.,  McMurdo). 

Contents 

A  detailed  description  of  the  extrapolation  from  ionosonde  to  oblique  propagation  modes  is 
provided  in  the  next  section.  The  subsequent  section  presents  meteor  burst  model  predictions  for 
the  Byrd-McMurdo  and  CONUS  links.  A  comparison  of  the  CONUS  predictions  are  made  with 
the  corresponding  1989  measurements.  The  fmal  section  summarizes  these  results  from  the 
perspective  of  Antarctic  radio  system  design  and  describes  the  necessary  follow-on  efforts  to 
finalize  this  design. 

Appendices  A  and  B  document  computer  programs  developed  for  NSF/NUWC  to  relate 
ionosonde  data  to  the  frequency  availability  for  oblique  propagation.  Appendices  C  and  D 
present  results  from  this  oblique  propagation  analysis.  Appendix  E  contains  the  meteor  burst 
prediction  results  and  Appendix  F  contains  a  pre-publication  copy  of  an  Ionospheric  Effects 
Symposium  paper  on  an  advanced  meteor  burst  communication  system  test  and  demonstration. 

HF  LINK  ANALYSIS 

Ionosonde  Data  Analysis 

Scott  Base  Ionosonde  Data 

Ionosonde  data  measured  at  Scott  Base  in  Antarctica  from  the  years  1970  through  1983  was 
available  for  the  characterization  of  local  ionospheric  skywave  propagation  conditions.  The  data 
consisted  of  monthly  tables  of  hourly  values  for  several  scaled  parameters  measured  from 
ionosonde  output  traces.  One  data  file  was  provided  for  each  calendar  year.  Primarily,  the  data 
included  the  critical,  or  maximum,  frequency (MUF)  for  which  the  ionosphere  would  reflect  a 
vertically-launched  radiowave  from  one  or  more  ionospheric  layers.  Ideally,  the  virtual 
reflection  height  h'  would  also  be  provided  or,  at  a  minimum,  the  scale  factor  for  determining  the 
basic  MUF  value  for  single-hop  propagation  to  a  fixed  distance.  The  F2,  FI,  and  E  layers  define 
the  most  important  ionospheric  altitude  bands  used  for  HF  skywave  radio  and  therefore  are  of 
significant  importance  in  the  analysis  of  ionosonde  parameters  as  depicted  in  Figs.  2  and  3.  For 
the  F2  layer,  a  "MUF  factor"  M3000F2  (A/^)  is  provided  to  convert  the  F2-layer  critical 
frequency  foF2  ("o"  for  ordinary  wave)  into  the  corresponding  MUF  values  for  a  single-hip 
range  of  3000  km.  Note  that  MUF  in  scientific  parlance  refers  to  the  maximum  usable  oblique 
frequency  at  a  given  time,  not  the  50%  value  from  the  distribution.  At  this  point,  we  will  refer 
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to  this  "basic  MUF"  value  as  the  maximum  propagating  frequency  extrapolated  to  a  specified 
range  from  the  mid-path  ionosonde  data  and  let  the  unmodified  "MUF"  to  refer  to  the  50%-tile 
value. 

The  data  before  October  1977  included  only  F2  critical  frequencies  and  basic  MUF  factors, 
with  no  parameters  reported  for  FI-  or  E-layer  activity  and  no  reason  provided  for  the  absence 
of  this  data.  Only  a  "C"  qualifying  letter,  indicating  that  the  measurement  was  impossible  for 
some  non-ionospheric  reason,  was  reported  for  each  hour  in  these  cases.  After  October  1977, 
F2-,  FI-  and  E-layer  parameters  are  scaled  and  appear  in  the  data  files  along  with  the  appropriate 
virtual  heights. 

The  data  for  each  month  and  scaled  parameter  in  a  yearly  file  was  presented  in  a  single 
block.  A  block  header  specified  the  ionosonde  site,  the  date,  and  the  identity  of  the  scaled 
parameter  whose  values  immediately  followed  the  header.  Each  scaled  parameter  in  a  block 
consisted  of  five  character  positions,  three  positions  carried  an  integer  number  and  the  remaining 
two  positions  carried  a  descriptive  and  a  qualifying  letter.  The  scaled  frequency  values  were 
presented  in  the  data  file  in  units  of  1Q4  MHz,  with  the  heights  given  directly  in  kilometers  and 
the  basic  MUF  factors  presented  as  lOOAff.  Many  hours  of  various  months  and  years  showed  no 
parameter  values  or  explanatory  letter.  A  complete  description  of  the  data  format  is  provided  in 
Appendix  A. 

Statistical  Characterization 

A  FORTRAN  77  computer  program  called  lONOSTATS  was  written  to  extract  scaled 
parameters  from  any  interval  or  set  of  fixed  times  from  one  or  more  yearly  ionosonde  data  files. 
Once  extracted,  these  values  are  converted  to  their  scaled  values  and  accumulated  in  counting 
bins.  When  all  desired  times  have  been  accessed  for  each  parameter,  the  counts  are  normalized 
by  the  total  count  of  events  across  all  bins.  The  r^ulting  numerical  density  value  for  each  scaled 
parameter  represented  the  probability  that  the  parameter  attained  a  value  in  the  corresponding 
bin  in  the  given  hour.  Cumulative  values  over  all  hours  for  each  parameter  value,  frequency, 
height,  and  factor,  were  also  provided.  In  addition,  density  tables  were  also  generated  for  the 
descriptive  and  qualifying  letters.  In  this  way,  the  user  could  determine  the  likelihood  of 
measurement  failure  and  the  frequency  of  measurement  error  or  uncertainty. 

The  lONOSTATS  program  was  used  to  survey  each  of  the  14  data  files  and  determine  the 
available  scaled  parameters  as  well  as  the  corresponding  values  of  the  descriptive  and  qualifying 
letters  (see  Appendix  A).  For  example,  F2  critical  frequencies  typically  bore  the  'U  qualifying 
letter  meaning  uncertain  numerical  value  and  the  'F'  descriptive  letter  indicating  the  probable 
occurrence  of  spread-F  echoes  (dispersive  reflection).  Since  this  effort  focuses  on  oblique 
propagation,  albeit  including  NVIS  paths,  no  further  lONOSTATS  results  are  provided.  In  any 
case,  the  results  presented  in  this  report  for  NVIS  links  mimic  the  corresponding  ionosonde 
results  given  the  short  link  ranges  involved. 
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Oblique  Incidence 
Extrapolation 


Let /,  be  the  ionosonde-reported  critical  frequency  for  a  vertically  incident  signal  from  some 
ionospheric  layer  at  a  virtual  height  h.  The  corresponding  basic  MUF  value for  single-hop 
oblique  propagation  over  a  link  with  Great  Circle  path  (GCP)  length  D  and  path  midpoint 
located  above  the  ionosonde  may  be  given  by; 


fob  =  ^{^)/vSec{(t>J 


(1) 


where  the  angle  of  incidence  of  the  signal  incident  on  a  curved  ionospheric  layer  is  given  by 

sin(eo/2) 


4>o  =  tan 


-I 


and 


1 +(*'//?«) -cos(ea/2) 


(2) 


On  -  J^IRe  (3) 
is  the  earth's  radius,  and 
k{D)  is  the  secant  correction 
factor  that  approximates  the 
effects  of  ionospheric 
curvature.  The  geometry 
represented  in  these 
expressions  is  depicted  in 
Fig.  4.  The  function  k(P)  is 
plotted  in  Fig.  5. 

The  elevation  angle  0,, 
measured  from  the  horizon  to 
the  virtual  reflection  point 
and  provides  a  means  of 
estimating  the  usable  portion 
of  an  antenna  pattern  during 
link  design  studies.  From 
Fig.  4,  this  angle  can  be 
determined  as 

e.,  =  180 -a -60/2 


where 


and 


a 


cos 


rr + ~  R^b 
2rr(/?g+^') 


(5) 


rr  =  ^Ih'^  +  2Re[\-  cos(ei,/2)](/?£ + h’) 


(6) 

When  the  virtual  height  is  not  available  in  the  ionosonde  data  base,  then  it  may  either  be 
computed  from  the  corresponding  basic  MUF  factor  or  the  average  height  of  the  layer  may  be 
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used  (e.g.,  325  km  for  the  F2  layer).  If  the  basic  MUF  factor  is  available,  then  the  virtual  height 
may  be  approximated  by 


=  Rk 


sin(ep/2) 

tan(«j>J 


+  cos(0o/2)-l 


(7) 


where  it  is  necessary  to  compute  tan((ti  J  from 


tan(<l)J  = 


(8) 


These  equations  are  used  by  the 
lONOLINK  computer  program 
(see  Appendix  B)  to  determine  the 
critical  frequencies  and  elevation 
angles  for  one-hop  oblique 
propagation  in  Antarctica  witii  a 
path  midpoint  (reflection  point) 
above  the  Scott  Base  ionosor  Je. 

For  each  hour  in  a  for  which 
the  ionosonde  data  includes  a 
legitimate  scaled  value  (i.e.,  a 
value  is  provided),  the  lONOLINK 
program  first  computes  the  F2- 
layer  basic  MUF  value  for  each  range  D  input  by  the  user,  Next,  it  computes ^;(D) 

and  f^D).  Since  NVIS  propagation  may  include  2-hop  propagation  from  the  E  layer, 
lONOLINK  also  computes  the  two  hop  value  ,^Z)/2).  Finally,  the  sporadic  E  layer  (£,)  is 
considered  for  the  computation  of  the  one-hop  value ^(O)  and  the  two-hop  value  f2EJ<DH).  The 
basic  MUF  value,  or  link  frequency^  for  the  given  hour  is  then  determined  from 


VARUnON  OF  k  FACTOR  WITH  DISTANCE 
(FACTOR  FOR  CURVED  IONOSPHERE  CORRECTION) 


Fig.  5  k  Value  Versus  Range  D 


/,  =  MAX{/„,/„./„/„,/„,/,^}  (9) 

The^  values  are  used  to  increment  cumulative  distribution  bins  which  are  normalized  by  the 
total  number  of  usable  ionosonde  data  hours  in  the  chosen  sample  set.  Typically,  this  sample  set 
spanned  all  of  the  hours  in  a  one-month  period. 

Appendix  C  contains  skywave  mode  and  basic  MUF  density  plots  for  maximum  sun  and 
minimum  sun  periods  at  50-,  200-,  1000-,  and  2000-km  link  ranges.  These  periods  were  chosen 
to  demonstrate  the  effect  of  solar-induced  ionization  on  skywave  link  frequencies.  These 
periods  are  roughly  apparent  from  Fig.  6,  which  plots  non-refraction  solar  zenith  angle  versus 
Universal  Time  (UT)  for  March,  June,  September,  and  December.  The  minimum  sun  period  at 
Scott  Base,  Antarctica,  corresponds  to  April  through  September  and  the  maximum  sun  period 
corresponds  to  January  through  March  and  October  through  December.  Results  for  both  1975 
and  1979  are  plotted  in  the  appendix,  although  the  1975  results  included  scaled  values 
exclusively  for  the  F2  layer.  The  low  values  of  average  sunspot  number  (SSN)  during  the 
maximum  sun  period  in  1975  (SSN=  19)  and  the  minimum  sun  period  (SSN  =  24)  may  have 
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obviated  the  need  for  scaling  of 
E-  and  FI -layer  values.  Thus, 
the  modes  and  densities  plotted 
on  pages  C-4  through  C-20 
show  only  basic  MUF  values 
produced  by  the  F2  layer. 

In  1979,  the  corresponding 
SSN  values  were  172  and  133, 
respectively.  These  higher 
values  of  SSN  most  likely 
produced  greater  ionization. 

This  increased  ionization  would 
induce  IE  and  IFl  modes  as 
well  as  1F2  modes  and  require 
scaling  of  the  corresponding 
critical  frequencies,  virtual 
heights,  and  MUF  factors.  The  mode  density  plots  for  1979  show  IFl,  IE,  and  lEs  modes  as 
well  as  1F2  modes.  In  the  minimum  sun  period,  the  1979  50-km  link  (pg.  C-30)  shows  a 
predominancii  of  1F2  and  lEs  modes  with  diminutive  FI-  and  E-layer  effects.  The 
corresponding  frequency  density  plot  for  50-km  range  (pg.  C-31)  was  dominated  by  frequencies 
between  2  and  10  MHz  with  basic  values  apparent  between  60  and  100  MHz.  As  link  range 
increases  to  2000  km  (pg.  C-37),  the  density  values  for  the  upper  frequency  bins  increase  into 
the  150-300-MHz  range  During  the  maximum  sun  period,  the  1979  50-km  link  showed  a 
dominance  of  FI  as  well  as  F2  modes  with  a  reduction  of  both  Es  and  E  modes  in  percentage  of 
time.  As  link  range  is  increased  from  50-  to  2000-km  range,  the  percentage  of  iFl,  lEl,  and 
lEs  mode  support  increases  significantly  relative  to  1F2  support  for  both  minimum  and 
maximum  sun  periods.  The  corresponding  maximum  sun  MUF  density  values  increase 
significantly  relative  to  their  corresponding  values  in  the  minimum  sun  period.  At  2000-km 
range  (pg.  C-28),  basic  MUF  values  for  the  maximum  sun  period  were  found  in  the  150- 
300  MHz  range  for  about  60%  of  the  time. 

Measurement-Prediction  Comparison 

For  the  purposes  of  the  model  validation  effort,  an  inverse  interpolation  was  performed  on 
the  monthly  cumulative  distributions  of  basic  MUF  values  for  each  hour.  This  interpolation  was 
performed  to  estimate  the  basic  MUF  value  associated  with  a  particular  probability  of 
exceedance.  For  example,  the  optimum  working  frequency  or  FOT,  corresponds  to  that  basic 
MUF  value  which  is  exceeded  in  90%  of  the  days  in  the  specified  hour.  Since  actual  cumulative 
bin  counts  were  not  likely  to  fall  exactly  on  the  90%-tile  value,  an  interpolation  was  required 
between  adjacent  counts  to  estimate  the  associated  basic  MUF  value  for  the  FOT. 

A  comparison  was  made  between  the  ionosonde-extrapolated  values  of  frequencies  selected 
from  the  monthly  cumulative  distribution  of  hourly  frequency  availability  and  computer 
predictions  from  the  lONCAP  and  ASAPS  computer  programs.  These  values  corresponded  to 
the  lower  decile,  median,  and  upper  decile  points  along  the  distribution.  The  lower  decile 
values,  or  FOT,  is  the  frequency  exceeded  for  90%  of  the  month's  days  for  a  specified  hour  of 
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the  day.  In  practice,  the  FOT  is  a  system-dependent  frequency  and  not  a  function  of  propagation 
conditions  alone.  Thus,  at  most  3 1  values  were  used  to  estimate  each  cumulative  basic  MUF- 
value  distribution.  Similarly,  the  standard  MUF  value  exceeded  for  50%  of  the  month's  days  in 
the  specified  hour,  and  the  HPF  values,  exceeded  for  only  1 0%  of  the  month's  days  in  the  given 
hour.  The  objectives  of  this  comparison  were  both  to  determine  the  relative  prediction  accuracy 
of  the  AS  APS  and  lONCAP  programs  and  to  validate  computer  model  predictions  in  general. 

In  order  to  compare  measurement  and  prediction  for  a  wide  range  of  ionospheric  conditions, 
k  the  months  of  March,  June,  September,  and  December  were  selected  to  study  the  effects  of 
solar  zenith  angle,  x,  on  link  performance  and  model  predictions.  GFE  sunspot  data  was  then 
analyzed  for  these  months  over  the  14-year  period  (corresponding  to  the  available  ionosonde 
measurements)  to  determine  the  minimum,  maximum,  and  average  values  of  monthly-averaged 
sunspot  number  (SSN)  The  resulting  SSN  values  and  the  years  in  which  they  occurred  for  each 
month  are  provided  in  the  table  on  page  D-1  (Appendix  D).  The  resulting  solar  zenith  angles  at 
Scott  Base  for  these  four  months  and  three  SSN  values  per  month  were  plotted  in  Fig.  6.  As 
expected  for  Scott  Base  (78°  S  latitude),  the  sun  is  below  the  horizon  (x  >  90°)  for  all  of  June 
and  above  the  horizon  (x  <  90°)  for  all  of  December  with  the  expected  diurnal  variation.  Note 
that  local  time  differs  by  about  1 1  hours  from  the  Universal  Times  shown  in  the  plot. 

Overall,  a  survey  of  the  plots  presented  in  Appendix  D  suggests  that: 

(1)  the  AS  APS  and  lONCAP  basic  MUF  values  (FOT,  MUF,  HPF)  are  less 
than  ±2  MHz  in  nearly  all  cases  and  are  often  closer  than  0.5  MHz, 

(2)  both  ASAPS  and  lONCAP  predictions  are  within  about  ±3  MHz  of 
ionosonde-extrapolated  results  for  a  majority  of  the  hours  and  months 
shown,  with  many  comparisons  within  1  MHz, 

(3)  the  predicted  diurnal  variation  of  FOT,  MUF,  and  HPF  values  appears  to 
track  the  corresponding  measurements  in  a  majority  of  the  cases, 

(4)  predicted  basic  MUF  values  for  both  ASAPS  and  lONCAP  were 
significantly  below  measurement-extrapolated  values  during  maximum 
sunspot  number  and  maximum  sun  periods  but  tracked  the  measurements 
as  described  in  (1)  through  (3)  when  the  solar  zenith  angle  was  a 
maximum  (compare  pp.  D-149  to  D-152  with  Fig.  6),  and 

(5)  changing  numbers  of  ionosonde  sample  points  produced  oscillation  in 
extrapolated  basic  MUF  values  (e.g.,  pp.  D-71  through  D-74)  while  too 
few  values  resulted  in  constant  extrapolated  basic  MUF  values  in  some 
cases  (e.g.,  pp.  D-62  and  D-63). 

(6)  an  anomaly  was  discovered  in  which  the  lONCAP-predicted  basic  MUF 
value  would  decrease  slightly  with  increased  link  range  from  50  to  200 
km,  a  result  not  possible  with  the  algorithms  employed  to  extrapolate  the 
Scott  Base  ionosonde  data  and  not  observed  in  the  ASAPS  predictions. 
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These  results  suggest  that  either  lONCAP  or  ASAPS  may  be  employed  to  predict 
approximate  basic  MUF  values  for  one-hop  Antarctic  skywave  links  straddling  Scott  Base 
during  minimum  sun  regardless  of  the  SSN  value  or  during  maximum  sun  for  minimum  SSN 
values.  During  maximum  sun  and  maximum  SSN  values,  the  extrapolated  basic  MUF  values  are 
much  higher  than  the  corresponding  predictions.  This  result  occurs  because  neither  ASAPS  nor 
lONCAP  predict  FI,  E,  or  Es  modes  during  these  maximum  sun/SSN  periods  although  these 
modes  are  apparent  in  the  ionosonde  extrapolated  basic  MUF  measurements. 

ASAPS  and  lONCAP  path  loss  measurements  were  compared  for  a  subset  of  the  results 
provided  in  Appendix  D.  These  values  differed  by  less  than  2  dB,  suggesting  similar  loss 
mechanism  models  are  employed  in  both  models.  Since  the  ASAPS  source  code  was 
unavailable,  a  more  detailed  evaluation  of  path  loss  algorithms  was  not  possible.  Given 
effectively  equivalent  path  loss  calculations,  the  noise  level  and  antenna  gain  values  needed  to 
complete  link  SNR  performance  predictions  may  be  identical  for  both  models.  lONCAP, 
however,  employs  link  reliability  and  service  probability  values  not  computed  by  the  ASAPS 
program  which  provides  only  median  SNR  values. 

This  analysis  did  not  consider  the  lowest  usable  frequency  (LUF),  computed  as  a  system- 
dependent  value  accounting  for  absorption,  antenna  gain,  noise  levels,  etc.  In  the  absence  of  this 
prediction,  the  lower  bound  for  link-usable  frequencies  cannot  be  determined.  Thus,  although 
the  extrapolated  measurements  indicate  basic  MUF  values  as  high  as  ISO  MHz,  the  minimum 
usable  frequency  in  the  HF  band  is  unknown.  If  significant  absorption  occurs  simultaneously 
with  the  levels  of  ionization  required  to  support  strong  FI-  and  E-layer  reflections,  than  the 
lower  HF  band  may  be  unusable  at  a  minimum.  The  analysis  of  cosmic  noise  absorption  data  at 
Scott  Base  would  permit  an  estimate  of  two-way  skywave  path  absorption  for  the  estimation  of 
conservative  LUF  values  for  nominal  HF  system  designs. 

METEOR  BURST  LINK  ANALYSIS 

Objectives 

MB  radio  provides  a  viable  communications  technique  for  on-continent  point-to-point  links 
between  base  stations  and  point-to-area  links  between  base  stations  and  field  parties.  In 
recognition  of  these  potential  MB  applications,  a  meteor  burst  link  was  operated  between  Byrd 
Station  and  McMurdo  in  December  of  1992.  The  objectives  of  this  link  test  were  to  verify 
effective  MB  link  operation  in  Antarctica  and  provide  a  set  of  validation  measurements  for 
comparison  with  available  prediction  techniques. 

Approach 

Link  Performance  Measurements 

The  1992  Antarctic  full-duplex  (FDX)  MB  link  consisted  of  a  1460-km  path  between  Byrd 
Station  (80°  S,  120°  W)  and  McMurdo  (78°S,167°W)  operating  on  42.03  and  48.75  MHz. 
Each  link  site  employed  corresponding  horizontally-polarized  five-element  Yagi  antennas  for 
transmit  and  receive,  with  each  antenna  placed  at  a  height  of  about  9  m  above  ground  (3/2 
wavelength  at  48.75  MHz),  1-kW  transmit  power,  and  a  9.6  kbps  channel  rate.  Half-rate  Golay 
forward  error  correction  (FEC)  was  employed  for  the  transmission  of  120-character  messages  in 
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20-character  packets.  A  required  received  power  of  -110  dBm  was  assumed  for  no-FEC 
reception  and  -114  dBm  was  assumed  for  FEC  reception  based  on  previous  work.  Both  link 
terminal  transmissions  consisted  of  contiguous  seven-packets  sequences  with  no  chaimel  time 
required  for  probe  signals. 

The  Antarctic  link  measurements  constituted  the  third  test  of  the  Hadron  terminal  equipment. 
The  first  test,  performed  during  peak  solar  activity  in  1989,  employed  a  600-km  mid-latitude 
link  oriented  from  northeast  to  southwest  with  otherwise  similar  link  parameters.  Results  from 
this  test  have  been  presented  in  this  report  to  provide  an  additional  measurement-prediction 
comparison.  Since  only  a  few  of  these  link  test  hours  were  uncontaminated  by  interference,  only 
a  small  number  of  measured  values  are  available.  Therefore  these  results  should  be  used  only  as 
an  indication  of  model  accuracy  at  mid-latitude,  and  not  a  validation  of  model  accuracy  in 
Antarctica.  These  predictions  do,  however,  indicate  the  magnitude  of  measured  link  throughput 
values  expected  for  the  1989  test  link.  Since  the  Antarctic  link  was  operated  at  more  than  twice 
the  1989  link  range,  Antarctic  link  throughput  should  exceed  the  1989  results.  This  increased 
range  resulted  in  increased  forward  scattering  angles  for  most  usable  trails  and  the  concomitant 
increase  in  received  signal  duration. 

METEORLINK  Predictions 

The  METEORLINK  computer  program  was  used  to  predict  Antarctic  link  performance.  The 
METEORLINK  computer  program  is  a  physical  model  of  a  meteor  scatter  radio  link  originally 
developed  in  1988.  Since  that  time,  METEORLINK  has  undergone  numerous  modifications  to 
improve  prediction  accuracy  and  maximize  its  utility  as  a  link-diagnostic  tool.  The  purpose  of 
the  physical  model  is  not  only  to  provide  link  performance  predictions,  but  also  to  enable 
diagnostic  analysis  of  the  dominant  meteor  scatter  phenomena  affecting  link  performance.  An 
important  function  of  a  physical  model,  such  as  METEORLINK,  is  the  determination  of  the 
arriving  meteor  flux  which  is  both  suitably  located  and  oriented  to  contribute  to  the  link-usable 
meteor  rate  (MR)  and  DC  values.  For  example.  Fig.  7  is  a  contour  plot  of  the  combined 
sporadic  meteor  flux 
measured  by  radars  in 
Kazan,  Russia  and 
Mogadishu,  Somalia. 

These  values  are  shown  in 
ecliptic  coordinates,  in 
which  0°  ecliptic  latitude  is 
measured  from  the 

intersection  of  an  earth- 
concentric  sphere  and  the 
plane  of  the  earth's  orbit.  In 
the  figure,  ecliptic 
longitude  has  been 

measured  positively  from 
the  apex  of  the  earth's  way 
(earth's  orbital  direction) 
toward  the  sun  with  180'’ 
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Fig.  7  Sporadic  Meteor  Flux  in  February 
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corresponding  to  the  antapex  direction.  Clearly,  most  sporadic  meteor  radiants  approach  from 
the  apex  direction  and  thus  maximize  mid-latitude  link  performance  at  about  6  AM  local  time. 

As  the  meteoroid  descends  into  the  atmosphere,  it  collides  with  atmospheric  particles  which 
heat  the  meteor  and  boils  atoms  from  its  surface.  These  freed  atoms  collide  with  atmospheric 
particles,  producing  the  free  electrons  that  form  the  ionized  meteor  trail  used  for  meteor  scatter. 
The  speed  of  the  meteor  is  imparted  to  these  electrons,  which  rapidly  diffuse  outward  until 
further  collisions  slow  their  movement.  This  rapid  radial  expansion  of  the  trail  creates  the  initial 
trail  radius,  which  determines  the  strength  of  the  initial  trail-scattered  signal.  This  expansion 
occurs  within  milliseconds  of  the  meteor's  passage  of  a  fixed  point.  After  this  time,  the  trail 
expands  radially  due  to  normal  ambipolar  diffusion  until  electron  attachment  and  upper 
atmospheric  winds  completely  disintegrate  the  ion  trail. 

If  the  meteor  trail  is  oriented  in  a  plane  tangent  to  an  ellipsoidal  surface  whose  foci  are 
located  at  the  transmit  and  receive  antennas,  then  specularity  is  satisfied  and  the  maximum  signal 
is  scattered  toward  the  receiver.  The  criterion  for  coherent  trail  scatter  on  the  MB  link  is 
equivalent  to  "uiring  that  the  sum  of  all  radiowaves  scattered  from  the  trail  differ  by  less  than 
half  a  carrier  wavelength  (X).  In  symbols, 

|(r:2  +  r2i)-(r'i2  +  r'2i)l  ^  X/2 

where  the  r-values  are  the 
radiowave  path  lengths  shown 
in  Fig.  8.  This  criterion  defines 
the  portion  of  the  meteor  trail 
lying  within  the  central  Fresnel 
zone,  which  contributes  the 
majority  of  the  trail-scattered 
signal  at  the  receiver.  Meteor 
trails  meeting  this  criterion 
(approximately)  are  defined  to 
be  observable  on  the  MB  link, 
independent  of  the  contribution 
of  the  trail  to  the  link  MR  and 
DC  values.  As  the  trail 
expands  due  to  diffusion,  more 
and  more  trail  electrons  violate 
the  coherent  scatter  criterion 
and  the  RSL  decays  exponentially. 

If  the  trail-scattered  signal  endures  for  more  than  about  400  ms,  upper  atmospheric  winds 
distort  the  trail  sufficiently  to  force  coherent  scatter  from  two  or  more  different  portions  of  the 
trail.  In  this  case,  the  resulting  RSL  exhibits  multipath  fading  which  reduces  the  available 
channel  bandwidth  and  somewhat  reduces  the  burst  DC  contribution.  Similarly,  a  small  number 
of  enduring  trails  are  not  originally  oriented  for  coherent  scatter  but  are  distorted  by  winds  until 
one  or  more  trails  segments  are  forced  into  a  suitable  scattering  geometry.  The  trail-scattered 
signals  produced  by  these  nonspecular  events  contribute  little  to  the  overall  link  performance. 
Since  these  trails  do  not  have  initial  orientations  corresponding  to  a  linear  extension  of  radar- 
measured  meteor  flux  data  (e.g..  Fig.  7),  and  METEORLINK  does  not  yet  contain  a  global  high- 
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Fig.  8  Criteria  for  Coherent  Trail  Scatter 
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altitude  wind  model,  the  negligible  contribution  provided  by  the  nonspecular  events  are  not 
included  in  predicted  link  MR  values. 

Link-Usable  Trails 

The  existence  of  a  link-observable  trail  offers  the  possibility  of  a  usable  trail-scattered  signal. 
If  a  trail-scattered  signal  is  to  be  detected  above  the  noise  level  measured  in  a  receiver,  then  the 
path  loss  from  the  transmit  to  receive  antennas  must  not  exceed  some  maximum  value.  For 
effective  communications,  the  signal  must  exceed  the  noise  level  by  an  sufficient  amoimt  to 
produce  a  usable  signal-to-noise  ratio  (SNR)  for  acceptable  modem  performance.  The  resulting 
maximum  allowable  path  loss  (MAPL)  value  is  a  function  of  the  transmitted  power,  the  required 
received  power,  and  the  antenna  gain  product  at  a  specified  point  in  the  link  common  volume. 
This  MAPL  value  determines  the  minimum  linear  electron  density  (line  density  q*)  required 
along  the  trail  axis  to  produce  a  link-usable  trail-scattered  signal  above  the  receiver's  noise 
threshold. 

The  electron  line 
density  9*  is  a  function  of 
the  characteristics  of  the 
trail-scattering  process  as 
well  as  the  orientation  of 
the  trail  and  the 
corresponding  MAPL 
value.  If  the  q*  value  is 
distributed  in  a  large 
enough  volume  so  that  the 
individual  electrons  serve 
as  independent,  single 
scatterers  of  the  incident 
radiowave,  then  the  tr^  is 
termed  underdeme 

scatterer.  On  the  other 
hand,  if  the  electron 
volume  density  is  so  high  that  the  electrons  mutually  interact,  than  the  trail  is  characterized  as  an 
overdense  scatterer.  Of  course,  there  is  a  transition  region  in  which  trails  exhibit  both  types  of 
scattering  behavior  during  their  lifetimes.  Certainly,  all  link-usable  trails  must  ultimately 
become  imderdense  if  not  destroyed  by  turbulent  winds. 

The  electron  line  density  9  at  a  given  point  along  a  meteor  trail  is  determined  predominantly 
by  the  meteor's  mass,  the  atmospheric  density  at  the  trail-scatter  point,  the  angle  made  by  the 
trail  with  the  zenith,  the  material  that  composes  the  meteor,  and  the  meteor's  speed.  Given  the 
MAPL  value  at  a  specific  trail-scatter  point,  a  specific  trail  orientation  through  that  point,  the 
minimum  required  ^-value  q*,  and  estimates  of  meteor  substance,  speed,  and  atmospheric 

density,  the  minimum  requii  jd  meteoroid  mass  needed  to  produce  q*  can  be  computed.  The 
number  of  meteoroids  exceeding  mass  m  in  the  neighborhood  of  the  earth  has  been  empirically 
shown  to  satisfy 


«oe 


UMILE 
MKTEOM 
PHI  HOUR 
(X1M) 


■  M-n 

□  M4t 
B404* 

□  mmo 

■  2»4« 

■  l»40 

□  t^O 


CROSS-MNOE  DtSTANCE  (KM) 

Fig.  9  Link-Usable  Meteor  Rates  on  a  1200-km  Link 
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Nm  -  Cmtn' 


where  j  is  a  function  of  arrival  direction.  The  arrival  rate  of  meteors  exceeding  mass  m,  is 

therefore  proportional  to  ni\  where  the  proportionality  coefficient  includes  the  appropriate  flux 
density  value  (see  Fig.  7)  for  the  corresponding  trail  orientation.  An  observable  meteor  trail 
with  an  electron  line  densit>  q>  q*  is  called  a  link-usable  trail.  The  occurrence  rate  of  link- 
usable  meteor  trails  is  called  the  usable  meteor  rate,  or  meteor  rate  (MR)  for  brevity,  and 
constitutes  a  vital  MB  link  performance  measure.  Similarly,  integrating  the  DC  contribution 
from  each  usable  trail  yields  the  link  DC  value.  Fig.  9  plots  the  MR  contributions  for  a  1200-km 
north-south  link  in  February  at  6  AM  local  time.  The  trough  along  the  link's  Great  Circle  path 
(GCP)  is  to  the  negligible  contribution  from  trails  tangent  to  an  earth-concentric  sphere. 

Results 

METEORLINK  predictions  were  performed  with  and  without  FEC  for  both  FDX-link 
frequencies  in  February  and  July  as  well  as  December.  The  February  and  July  predictions  bound 
the  seasonal  variation  expected  during  the  year.  The  link-usable  MR,  DC,  and  120-character 
message  throughput  values  are  plotted  versus  universal  time  in  Appendix  E.  The  throughput 
results  on  pages  E-4,  E-7,  E-10,  and  E-13  include  hourly  values  from  the  1989  Hadron  terminal 
test  and  the  corresponding  METEORLINK-based  predictions.  Clearly,  the  1989-link  predictions 
lie  within  the  available  measured  values. 

The  Antarctic  predictions  are  expected  to  be  similarly  related  to  Antarctic  link 
measurements.  Preliminary  survey  of  the  Antarctic  link  measurements,  however,  have  indicated 
a  predominance  of  continuous  link  connectivity  not  possible  via  meteor  scatter  for  the  link 
power  budget  available  for  the  test.  Near-continuous  sporadic  E  propagation  was  indicated,  but 
no  analysis  of  the  MB  link  measurements  was  available.  Since  the  continuous  connectivity 
certainly  provides  "best  case"  link  performance,  albeit  not  due  to  meteor  scatter  propagation,  the 
METEORLINK  predictions  presented  in  Appendix  E  represent  an  expected  lower  bound  on 
benign  link  performance. 

High-ERP  Mju  Communications 

The  Advanced  Research  Projects  Agency  (ARP A)  is  conducting  tests  of  a  high-ERP  meteor 
burst  communications  link  between  Verona,  NY,  and  Charleston,  SC,  with  live  demonstration 
facilities  planned  for  a  location  in  Arlington,  VA,  beginning  in  July,  1993.  The  demonstration 
link  is  expected  to  yield  average  hourly  message-bit  throughputs  between  1  and  10  kbps  as 
compared  to  nominal  link  designs  that  yield  100  to  1  kbps  values  under  minimum  meteor  flux 
conditions.  Assuming  eight-bit  characters,  these  increased  link  throughputs  yield  3750  to  37500 
120-character  messages  per  hour.  This  VHF  technology  has  a  potentially  significant  role  in 
providing  primary  base-to-base  communications  as  well  as  serving  as  HF  backup  during  periods 
of  skywave  blackout,  a  cc..-plete  description  of  the  ARPA  high-ERP  MB  Link  Experiment 
(HEMBLE)  is  provided  in  Appendix  F. 
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CONCLUSIONS  &  RECOMMENDATIONS 


Study  Conclusions 

The  lONCAP  and  ASAPS  computer  programs  have  been  shown  to  predict  propagating 
frequencies  extrapolated  from  Scott  Base  ionosonde  data.  The  path  loss  predicted  by  both 
programs  also  appear  to  agree  closely  (within  3  dB),  but  lONCAP  provides  reliability 
calculations  not  found  in  the  ASAPS  model.  This  results  suggests  that  these  computer  programs 
provide  adequate  tools  for  HF  network  design.  They  also  provide  ionosonde  data  analysis 
software,  combined  with  other  environmental  measurements  such  as  simspot  number  and  auroral 
activity  measures,  which  could  be  modified  to  serve  as  an  effective  on-line  frequency  selection 
tool  for  Antarctica. 

Preliminary  lONCAP  predictions  made  for  point  to  area  applications  with  0  dBi  constant 
gain  antennas  and  a  required  90%  reliability  indicate  that  transmitter  powers  of  100  W  are 
required  for  point-to-area  links  in  the  vicinity  of  Scott  Base.  This  result  does  not  include  the 
advantage  gained  from  HF  relaying,  by  replacing  an  inefficient  NVIS  link  with  two  (or  more) 
efficient  long-range  relay  links.  If  the  Scott  Base  ionosonde  results  are  characteristic  of  the 
Antarctic  continent,  then  this  result  would  apply  throughout  the  region.  Employing  directive 
antennas  on  point-to-point  links  would  produce  a  lower  required  maximum  power  for  these 
links,  albeit  the  higher  power  value  would  nevertheless  still  be  required  for  science  parties 
employing  0  dBi  (NVIS)  antennas.  Lower  antenna  gain  than  0  dBi  for  science  party  operations 
would  require  a  corresponding  dB  increase  in  transmitter  power  above  the  100  W  value  to 
achieve  the  90%  reliability  value.  This  conclusion  must  be  validated  using  the  ALE  HF  radio 
received  signal  measurements  currently  in  operation  in  Antarctica.  Combining  these 
measurements  with  the  lONCAP  predictions  and  extrapolated  ionosonde  data  would  provide  the 
best  possible  basis  for  transmit  power  selection  in  an  ALE  HF  environment. 

Meteor  burst  predictions  for  the  McMurdo-Byrd  link  show  effective  emergency 
communications  to  science  teams  in  Antarctica.  Measurements  on  this  link  have  demonstrated  a 
preponderance  of  possible  E-layer  reflections.  There  is  no  doubt  that  meteor  scatter  will  provide 
about  10  bps  throughput  to  science  parties  at  VHF  and  in  excess  of  100  bps  throughput  between 
base  stations.  These  numbers  may  be  increased  by  an  order  of  magnitude  by  employing 
beamforming  techniques  and  large  antenna  arrays  at  the  base  stations.  The  small,  relatively 
inexpensive  MCC  terminal  (MCC-545)  designed  for  vehicle  tracking  applications  provides  an 
ideal  science  party  remote  terminal,  while  Government  disposition  of  MCC-520,  6520,  and  6560 
terminals  from  other  programs  provides  a  low-cost  means  of  acquiring  master  stations  for  base 
installations. 

System  Design  Recommendations 

The  100-W  minimum  transmitter  power  requirement  must  be  validated  by  more  exhaustive 
link  predictions  throughout  Antarctica.  This  analysis  should  be  based  on  a  validation  of  power 
levels  using  existing  data.  This  data,  taken  from  an  ALE  HF  radio  network  being  operated  in 
Antarctica  with  points  in  New  Zealand  and  Australia,  must  be  used  to  evaluate  the  path  diversity 
gain  inherent  in  HF  relaying.  Network  operation  and  frequency  management  techniques 
developed  from  this  analysis  would  then  be  implemented  in  controlling  software  for  each  HF 
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radio.  Thus,  science  party  and  base  station  radios  may  relay  messages  from  other  science  parties 
to  the  desired  station.  This  capability  may  even  lower  power  requirements  below  the  100-W 
value,  and  replaces  brute  force  power  requirements  with  intelligent  radio  use. 

The  100-W  result  assumes  normal  background  atmospheric  noise.  If  the  background  noise  is 
higher,  at  McMurdo  for  example,  than  either  the  HF  receive  system  must  be  remoted  to  an 
electromagnetically  quiet  site  or  the  science  party  transmit  powers  must  be  correspondingly 
increased  above  the  100  W  value.  Higher  background  noise  must  be  expected  aboard  an  aircraft 
intransit  to  McMurdo.  Thus,  the  transmitter  power  required  for  ground-air  operations  should  be 
chosen  large  enough  to  defeat  aircraft  noise  or  the  aircraft  noise  should  be  reduced  after  a  careful 
measurement  program.  This  program  would  involve  noise  measurements  taken  on  MAC  flights 
(or  other  flights  of  opportunity)  within  CONUS  as  well  as  essential  aircraft  antenna  pattern 
modeling.  This  result  may  be  mitigated  to  some  extent  by  the  use  of  directive  antennas  at 
McMurdo  (or  other  base)  pointing  in  the  known  direction  of  aircraft  approach. 

The  available  Antarctic  ionospheric  environmental  data  must  be  correlated  with  ionosonde 
data  to  determine  the  characteristics  of  HF  link  disruption  and  outage  as  well  as  the  role  of  VHF 
communications  (e  g.,  meteor  burst)  during  these  periods.  Thus,  base,  science  team,  and  aircraft 
may  be  equipped  with  VHF  (probably  meteor  burst)  assets  to  ride  out  ionospheric  disturbances 
that  prevent  HF  propagation  at  any  band  frequency.  The  objective  of  this  study  would  be  to 
verify  the  utility  of  VHF  during  these  periods  and  recommend  a  system  (network)  design. 

The  HF  and  VHF  radio  networks  would  be  integrated  into  a  single  regional  network,  using 
environmental  data  and  communicant  locations  to  optimally  route  message  traffic.  Techniques 
from  fuzzy  logic  control  would  be  considered  to  provide  smart  use  of  radio  resources  available 
at  any  time.  The  objective  of  terminal  (laptop  PC)  interface  would  be  to  make  all  relaying 
functions  invisible  to  the  user  and  serve  solely  as  a  message  I/O  device.  The  technology 
required  to  establish  this  network  exists  but  must  be  intelligently  chosen,  integrated,  and  tested. 
Otherwise,  the  piecemeal  development  of  this  communication  system  in  the  absence  of  an 
integrated  approach  will  force  higher  transmit  powers  in  a  brute  force  attempt  to  operate  single 
essential  links.  SAIC,  NUWC,  and  NSF  have  the  experience,  data  bases,  and  capabilities 
necessary  to  design,  develop,  deploy,  and  verify  such  an  integrated  communications  network. 
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APPENDIX  A 


lONOSTAT  COMPUTER  PROGRAM 


A.1  DESCRIPTION  AND  INSTALLATION 

lONOSTAT  is  a  Microsoft  FORTRAN  5.0  computer  program  developed  and  executed  on  a 
Gateway  2000  486/33-MHz  PC.  The  program  was  written  and  debugged  using  the  Power  Workbench 
(PWB)  development  tool  from  Microsoft  (MS)  which  is  available  with  its  FORTRAN  product.  MS- 
FORTRAN  5.0  employs  ANSI  FORTRAN  77  as  well  as  several  additional  features  for  compatibility 
with  VAX  FORTRAN  available  from  the  Digital  Equipment  Corporation.  The  purpose  of  the 
lONOSTAT  program  is  to  accumulate  numerical  densities  for  the  parameter  values,  qualifying  letters, 
and  descriptive  letters  provided  in  the  "NEW  URSI"  data  format  as  published  in  International  Council 
of  Scientific  Unions  Panel  on  World  Data  Centers  "GUIDE  to  the  WORLD  DATA  CENTER 
SYSTEM",  part  2.  These  parameters  include  hourly  junction  frequencies  (JFs),  "standard"  maximum 
usable  frequency  (MUF)  multipliers,  and  ionospheric  reflection  heights  (virtual  heights),  for  the  each  of 
the  observed  ionosperhic  layers. 

lONOSTAT  consists  of  a  single  source  code  module  lONOSTAT.FOR  which  is  compiled  and 
linked  by  the  PWB  tool  into  IONOSTAT.EXE.  Proper  use  of  the  MB-PWB  tool  is  beyond  the  scope  of 
this  appendix.  The  executable  image  is  invoked  at  the  user  prompt  from  drive  C  by  the  command; 

OlONOSTAT 

where  (he  highlighted  and  underlined  text  indicates  user  entry.  The  "C>"  In  this  example  Is 
displayed  by  the  PC.  The  program  then  asks  the  user  for  the  name  of  the  desired  lONOSTAT 
iriput  file  with  the  following  prompt; 

Type  name  of  input  file  without  extension  ".INP” 

The  user  then  types  the  name  of  the  input  file  without  the  trailing  (.)  or  file  extension.  The  lONOSTAT 
program  assumes  that  the  input  file  extension  is  ".INP".  For  example,  if  the  user's  input  file  is  called 
ION1970.INP  and  it  resides  in  directory  "INPUT"  on  drive  "D",  then  the  user  would  respond  to  the 
prompt  with 

Di\lNPU'niON1970 

and  the  lONOSTAT  program  would  automatically  read  file  ION1970.INP  in  the  indicated 
directory. 

A.2  INPUT  FILE  DESCRIPTION 
A.2.1  lONOSTAT  Input  File 

The  user-input  file  must  be  created  using  a  standard  ASCII  editor.  lONOSTAT  reads  this  input  file 
in  a  format-free  format,  so  exactly  one  comma  (,)  or  one  or  more  spaces  may  be  used  to  delimit  entries. 
For  example,  consider  the  following  example  input  file; 


SCOTT  BASE 
1,  1.  1.  1 
24,  31,  14,  2000 

T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T 

T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T 

T 

T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T 

T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T 

10,  20.0,  50.0,  100.0,  200.0,  400.0,  600.0,  800.0,  1000.0,  1500.0,  2000.0 

2.0,  30.0,  56,  T 

0.0,  600.0,  60 

0.0,  90.0,  60 

1,  T,  0.0,  12.0,  60 

2,  F,  0.0,  30.0,  60 

3,  F,  0.0,  30.0,  60 

4,  T,  2.0,  4.0,  50 

5,  F,  0.0,  600.0,  60 

6,  F,  0.0,  600.0,  60 

7,  T,  0.0,  60.0,  60 

8,  F,  0.0,  30.0,  60 

9,  F,  0.0,  10.0,  50 

10,  F,  0.0,  600.0,  60 

11, T,  150.0,  600.0,  45 

12,  T,  0.0,  5.0,  25 


13,  F,  1.0,30.0,60  25 

14,  T,  90.0,  150.0,  60  26 

15,  F,  0.0,  600.0,  60  27 

16,  T,  0.0,  10.0,  50  28 

17,  F,  1.0,  30.0,  60  29 

18,  T,  0.0,  5.0,  25  30 

19,  F,  1.0,  30.0,  60  31 

20,  T,  90.0,  190.0,  20  32 

21,  F,  1.0,30.0,60  33 

22,  T,  0.0,  5.0,  25  34 

23,  F,  0.0,  10.0,  50  35 

24,  F,  0.0,  600.0,  60  36 

25,  F,  1.0,30.0,60  37 

26,  T,  0.0, 16.0,  40  38 
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27,  F,  1.0,  30.0,  60 

39 

28,  F,  1.0,30.0,60 

40 

29,  F,  1.0,  30.0,  60 

41 

30,  F,  1.0,  30.0,  60 

42 

T 

43 

D:VNUWCION\67Q70.NEW 

44 

D:\NUWC10N\67Q7 1  NEW 

45 

D:\NUWClON\67Q72.NEW 

46 

D:\NUWCION\67Q77.NEW 

68 

Each  record  (line)  is  shown  numbered  to  the  right  of  the  input  values  to  provide  an  index  for 
reference  to  each  item  in  this  description.  These  numbers  must  not  appear  in  the  user-input 
file  or  an  input  error  will  occur.  A  description  of  each  input  value  referenced  by  these  numbers 
is  provided  in  Table  A-1 . 

A.2.2  lONOSONDE  Data  File  Format 

The  "NEW  URSI"  data  fonnat  as  published  in  International  Council  of  Scientific  Unions  Panel  on 
World  Data  Centers  "GUIDE  to  the  WORLD  DATA  CENTER  SYSTEM",  part  2,  defines  the  fonnat  of 
the  ionosonde  data  input  files.  Although  this  fonnat  includes  hourly  median,  upper/lower  quartile,  and 
upper/lower  decile  values  derived  for  each  parameter,  none  of  these  entries  were  provided  m  the  data 
files  provided  as  GFI  for  this  study.  The  program  should  be  capable  of  reading  these  values  without 
failure,  although  it  does  not  provide  these  values  in  its  output. 

Data  for  each  parameter  during  one  month  form  a  physical  block  of  fixed  length  4800  bytes,  which 
comprise  40  records  each  of  length  120  bytes.  The  first  record  identifies  the  station,  month  of 
observation,  and  the  parameter  recorded.  Subsequent  records  contain  the  actual  data  in  the  form  of  24 
groups  of  5  characters  representing  values  for  the  24  hours  of  the  day.  Each  5  character  group  is  coded 
using  the  rules  laid  down  in  UAG-23.  Data  for  a  year  form  a  file  within  which  the  order  of  the  blocks 
must  follow  time  order.  The  order  of  the  parameters  within  the  file  is  not  significant.  The  format  of 
each  physical  block  is  provided  in  Table  A.2. 

Note  that  definitions  for  parameters  I  and  I(xxx),  records  41  and  42,  respectively,  were  not  found  in 
UAG-23.  These  values  were  not  required  for  the  analysis  performed  on  HF  links  in  study  for  which 
lONOSTAT  was  developed. 
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Table  A.1  Input  Variable  Descriptions  for  lONOSTAT  Program 


INPUT 

FILE 

ROW 

NUMBER 

ITEM 
NUMBER 
IN  ROW 

FORTRAN 
VARIABLE  TYPE 

DESCRIPTION 

TYPICAL 

VALUES 

1 

1 

CHARACTER*20 

Name  of  lONOSONDE  station 
used  to  And  the  start  of  each 
month's  data  records 

SCOTT 

BASE 

2 

1 

INTEGER*4 

First  hour  in  time  interval  for  bin- 
accumulation 

1 

II 

2 

K 

First  day  in  time  interval  for  bin 
accumulation 

1 

II 

3 

II 

First  month  in  time  interval  for 
bin  accumulation 

1 

II 

4 

II 

First  year  in  time  interval  for  bin- 
accumulation 

1970 

3 

1 

INTEGER*4 

Last  hour  in  time  interval  for  bin- 
accumulation 

24 

II 

2 

II 

Last  day  in  time  interval  for  bin 
accumulation 

11 

11 

3 

II 

Last  month  in  time  interval  for  bin 
accumulation 

11 

M 

4 

tl 

Last  year  in  time  interval  for  bin- 
accumulation 

1972 

4 

1-25 

LOGICAL*! 

Use/ignore  MASK  for  up  to  25 
years  of  ionosonde  data  Ales,  one 
Ale  per  year,  e.g.,  1970  -  1972 

TorF 
for  each 
entry 

5 

1-12 

LOGICAL*! 

Use/ignore  MASK  for  up  to  12 
months  of  ionosonde  data  for  each 
year  (Ale),  1  through  12 

lorF 
for  each 
entry 

6 

1 

LOGICAL*! 

Logic  switch  for  program 
lONOLINK,  not  used  in  program 
lONOSTAT:  T  creates  hourly 
FOT,  MUF  (standard),  and  HPF 
statistics  for  oblique  HF  links,  F 
creates  same  density  tabulations 

TorF 

ignored 

7 

1-31 

LOGICAL*! 

Use/ignore  MASK  for  up  to  31 
days  of  ionosonde  data  for  each 
month  (1  through  31) 

TorF 
for  each 
entry 

8 

1-24 

LOGICAL*! 

Use/ignore  MASK  for  up  to  24 
hours  of  ionosonde  data  for  each 
day  (1  through  24) 

TorF 
for  each 
entry 
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Table  A.1  Input  Variable  Descriptions  for  lONOSTAT  Program  (Continued) 


INPUT 

FILE 

ROW 

NUMBER 

ITEM 
NUMBER 
IN  ROW 

FORTRAN 
VARIABLE  TYPE 

DESCRIPTION 

VALUES 

9 

1 

INTEGER*4 

Number  of  oblique  path  lengths 
for  lONOLENK,  not  used  in 
program  lONOSTAT  (10  MAX) 

10 

9 

2-11 

REAL*4 

Oblique  path  lengths  (km)  for 
lONOLINK,  not  used  in  program 
lONOSTAT  (10  values  MAX) 

M 

to 

4000.0 

10 

1 

REALM 

Lower  frequency  limit  (MHz)  for 
lONOLINK-computed  EOT,  MUF, 
&  HPF  values,  not  used  in  program 
lONOSTAT 

2J 

II 

2 

REAL*4 

Upper  frequency  limit  (MHz)  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values,  not  used  in  program 
lONOSTAT 

60.0 

M 

3 

INTEGER*4 

Number  of  frequency  bins  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values,  not  used  in  program 
lONOSTAT  (60  MAX) 

56 

II 

4 

LOGICAL*! 

Logical  switch  to  turn  off  sporadic 

E  layer  in  lONOLINK  analysis, 
not  used  in  program  lONOSTAT 

lorF 

11 

1 

REAL*4 

Lower  height  limit  (km)  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values,  not  used  in  program 
lONOSTAT 

M 

II 

2 

REAL*4 

Upper  height  limit  (MHz)  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values,  not  used  in  program 
lONOSTAT 

600.0 

II 

3 

INTEGER*4 

Number  of  height  bins  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values,  not  used  in  program 
lONOSTAl  (60  MAX) 

,-5 


Table  A.1  Input  Variable  Descriptions  for  lONOSTAT  Program  (Continued) 


IPI 

ITEM 
NUMBER 
IN  ROW 

FORTRAN 
VARIABLE  TYPE 

DESCRIPTION 

VALUES 

12 

1 

REAL*4 

Lower  antenna  elevation  angle 
limit  (deg)  for  lONOLINK- 
computed  FOT,  MUF,  &  HPF 
values,  noi  used  in  program 
lONOSTAT 

M 

n 

2 

REALM 

Upper  antenna  elevation  angle 
limit  (deg)  for  lONOLINK- 
computed  FOT,  MUF,  &  HPF 
values,  not  used  in  program 
iONOSTAT 

90.0 

II 

3 

INTEGERM 

Number  of  angle  bins  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values,  not  used  in  program 
lONOSTAT  (60  MAX) 

60 

13.  14, 

15,  19, 
20,  24, 
25,  28, 
29,  30, 
31,33, 
34,  37, 
38,39 

1 

LOGICAL*! 

Logical  switch  to  turn  on  analysis 
for  the  corresponding  ionosonde- 
scaled-frequency  parameter  codes 
described  in  Section  A.  2. 2.  A  "T" 
tells  the  lONOSTAT  program  to 
process  the  parameter,  not 
processed  if  "F". 

lorF 

If 

2 

REAL*< 

Minimum  value  of  frequency  to  be 
used  in  density  accumulation  bins 

M 

II 

3 

REAL*4 

Maximum  value  of  frequency  to  be 
used  in  density  accumulation  bins 

30.0 

II 

4 

INTEGER*4 

Number  of  frequency  bins  to  be 
used  in  density  accumulation  bins 

28 

16,21, 
35,  40 

1 

LOGICAL*! 

Logical  switch  to  turn  on  analysis 
for  the  corresponding  ionosonde- 
scaled-factor  parameter  codes 
describee  in  Section  A.2.2.  A  "T" 
tells  the  lONOSTAT  program  to 
process  the  parameter,  not 
processed  if  "F". 

1 

lorF 

11 

2 

REAL*4 

Minimum  value  of  factor  to  be 
used  in  density  accumulation  bins 

II 

3 

Rj:AL*4 

Maximum  value  of  factor  to  be 
used  in  density  accumulation  bins 

II 

4 

INTEGER*4 

Number  of  factor  bins  to  be  used  in 
density  accumulation  bins 

20 
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Table  A.1  Input  Variable  Descriptions  for  lONOSTAT  Program  (Continued) 


INPUT 

FILE 

ROW 

NUMBER 

ITEM 
NUMBER 
IN  ROW 

FORTRAN 
VARIABLE  TYPE 

DESCRIPTION 

VALUES 

17.  18. 
22.  23. 
26.  27. 
32.36 

1 

LOGICAL*! 

Logical  switch  to  turn  on  analysis 
for  the  corresponding  ionosonde- 
scaled-height  parameter  codes 
described  in  Section  A.2.2.  A  "T" 
tells  the  lONOSTAT  program  to 
process  the  parameter,  not 
processed  if  "F". 

1 

lorF 

tl 

2 

REAL*4 

Minimum  value  of  height  to  be 
used  in  density  accumulation  bins 

M 

II 

3 

REAL*4 

Maximum  value  of  height  to  be 
used  in  density  accumulation  bins 

600.0 

II 

4 

rNTEGER*4 

Number  of  height  bins  to  be  used 
in  density  accumulation  bins 

41,42 

1 

LOGICAL*  1 

Logical  switch  to  turn  on  analysis 
for  the  corresponding  ionosonde- 
scaled  parameter  code  as  described 
in  Section  A.2.2.  A  "T"  tells  the 
lONOSTAT  program  to  process 
the  parameter,  not  processed  if  "F". 

lorF 

It 

2 

REAL*4 

Minimum  value  of  parameter  to  be 
used  in  density  accumulation  bins 

II 

3 

REAL*4 

Maximum  value  of  parameter  to  be 
used  in  density  accumulation  bins 

It 

4 

INTEGER*4 

Number  of  parameter  bins  to  be 
used  in  density  accumulation  bins 

^(?) 

43 

1 

LOGICAL*! 

Logical  switch  to  have  densities  on 
total  elapsed  time  or  elapsed  time 
for  which  ionosonde  data  was 
possible,  i.e.,  no  equipment  failure 
(qualifying  letter  "C") 

lorF 

44-68 

1 

CHARACTER*20 

Ionosonde  data  filenames, 

including  drive  and  subdirectory,  if 
not  the  same  as  IONOSTAT.EXE, 
up  to  25  filenames  may  be 
provided 

See 

Section 
A.2.1  for 
examples 

Table  A.2  lonosonde  (New  URSI)  Data  Format 


Record 

Columns 

Description 

1 

1-20 

Station  name 

1 

21-25 

Station  code 

1 

26-29 

Standard  time  meridian  of  the  station  (e  g. 
150W,  90E,  etc.,  with  OOOW  or  OOOE  =  UT) 

1 

30-33 

Geographic  co-latitude  in  tenths  of  a  degree 

1 

34-37 

Geographic  East  longitude  in  tenths  of  a  degree 

1 

38-41 

Year 

1 

42-  43 

Month 

1 

44-  45 

Parameter  code 

(See  UAG-23  characteristic  code) 

1 

46-120 

Spare 

2 

24  X  5-character  code 

Hourly  data  for  the  first  day  of  the  month  (i.e. 
foF2  values  -  078  R,  080  ,  etc.) 

3 

24  X  5 -character  code 

Hourly  data  for  the  second  day  of  the  month 
(i.e.  foF2  values  -  078  R,  080  ,  etc.) 

24  X  5-character  code 

. 

. 

24  X  5-character  code 

24  X  5-character  code 

32 

24  X  5-character  code 
(if  available) 

Hourly  data  for  the  thirty-first  day  of  the  month 
(If  less  than  3 1  days,  blank  fill.) 

33 

Medians 

34 

Median  Count 

35 

Upper  Quartile 

36 

Lower  Quartile 

37 

Upper  Decile 

38 

Range 

39 

Lower  Decile 

40 

Spare 

Not  all  of  the  5-character  scaled-parameter  values  were  reported  for  each  hour  of  the  15  years  of 
Scott  Base  ionosonde  data  provided  for  the  study.  In  this  case,  blank  fill  was  used  as  a  place  holder. 
Note  that  the  15  files  provided  for  this  study  were  67Q58.NEW,  67Q70.NEW,  67Q71.NEW,  ..., 
67Q83.NEW.  None  of  these  files  included  rows  33-40  in  the  monthly  data  blocks  for  each  parameter. 
The  lONOSTAT  program  should  be  able  to  read  these  values  if  present  without  disturbing  normal 
execution.  If  N  parameters  have  been  scaled,  then  there  will  be  N  blocks  for  each  of  the  months 
contained  within  a  single  file.  For  the  standard"  N  =  14  parameters,  the  ionosonde  data  file  should  be 
organized  as  shown  in  Table  A.  3.  A  complete  description  of  the  parameter  codes,  descriptive,  and 
qualification  letters  summarized  in  Table  A.4a,  b,  and  c,  respectively,  can  be  found  in  UAG-23  []. 
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Table  A.3  lonosonde  Data  File  Organization 


Block 

Month 

Parameter 

(Characteristic) 

Numeric 

code 

1 

January 

foF2 

00 

2 

January 

M(3000)F2 

03 

13 

January 

fxl 

51 

14 

January 

fml 

52 

15 

February 

foF2 

00 

16 

February 

M(3000)F2 

03 

167 

December 

fxl 

51 

168 

December 

fml 

52 

Letter 


Description 

F2  layer 

00-foF2 

01-fxF2 

FI  layer 

10-foFl 

11-fxFl 

E  layer 

20-foE 

22-foE2 

Es  layer 

30-foEs 

31-fxEs 

Other 

40-foF1.5 

42-fmm 

Spread 

50-foI 

51-fxI 

TEC 

70-1(2000) 

71-1 

Table  A.4a  Parameter  Codes 


Parameter  Codes  and  Meanmg 


02-fzF2 


13-M(3000)F1 


E 


32-fbEs 


43-m(3000)F1.5 


52-fmI 


72-I(xxx) 


03-M(3000)F2 


M-h'Fl 


26-h'E2 


33-fEs 


44-h'F1.5 


04.h’F2 


16-hT 


Table  A.4b  Qualifying  Letters 


Meanmg 


Less  than  (used  only  in  case  of  total  blanketing) 


Greater  than 


Less  than 


Interpolated  _ 


Deduced  from  x  component 


Mode  uncertam 


Deduced  from  o  component 


Smoothed  from  sequence 


Uncertam 


Deduced  from  z  component 
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Table  A.4c  Descriptive  Letters 


Letter 


Meaning 


Blanketing 


Absorption 


Non-ionospheric  (equipment) 


Above  upper  freq.  range 


Below  lower  freq.  range 


Spread  echoes 


Ioni2ation  density  too  small 


Stratification 


Night  E  layer  present 


Insufficiently  defmed  cusp 


Mode  uncertam 


Superimposed  layers 


Measurement  refers  to  o  component 


Range  spread 


Attenuation  near  critical  freq. 


Interference 


Interpolated 


Forked  trace 


Above  height  range 


Measurement  refers  to  x  component 


Lacuna  (tilt) 


Measurement  refers  to  z  component 


A.3  OUTPUT  FILE  DESCRIPTION 


The  lONOSTAT  output  filename  has  the  same  filename  as  the  input  file  but  with  the  extension 
".OUT"  instead  of  ".INP".  It  contains  a  tabular  normalized  number  density  (probability  density 
function)  for  each  user-specified  parameter  with  densities  also  provided  for  the  corresponding 
qualifying  and  descriptive  letters.  These  densities  are  determined  for  the  user  specified  time  interval. 
The  format  for  these  density  tables  is  depicted  by  Tables  A.5a,  b,  and  c  for  the  parameters,  qualifying 
letters,  and  descriptive  letters,  respectively.  A  sample  output  file  called  ION 1970.  OUT  is  provided  with 
the  software  package.  Note  that  a  0th  bin  and  an  "N+lst"  bin  of  the  parameter  densities  have  been 
added.  These  bins  catch  values  outside  of  the  user-provided  range  for  each  parameter  value. 
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Table  A.5a  Parameter-Value  Density  Table 


Hour  Intervals  (UT) 

Parameter  Value 
Frequency  (MHz) 
Angle  (degrees) 
Height  (km) 

0-1 

1-2 

2-3 

■ 

■ 

■ 

23-24 

NET 

Vo’ 

nnn 

nnn 

nrm 

nrm 

rmn 

nrm 

vi 

nrm 

nrm 

nnn 

nrm 

nrm 

nnn 

rmn 

nrm 

V2 

nnn 

nnn 

nnn 

nrm 

nnn 

nnn 

rmn 

rmn 

. 

nnn 

nnn 

nrm 

nrm 

nnn 

nrm 

nnn 

nnn 

. 

nrm 

nnn 

nnn 

nnn 

nrm 

rmn 

rmn 

nnn 

nnn 

nnn 

nrm 

rmn 

nnn 

rmn 

rmn 

nnn 

> 

nrm 

nnn 

nnn 

nnn 

nnn 

nnn 

nnn 

nnn 

*vo  is  the  zeroth  value  such  that  parameter  values  v  <  vq,  vj  is  the  1st  value  such  that  vq  <  v  ^  V|,  V2  is 
the  2st  value  such  that  vj  <  v  ^  V2,  and  so  on,  until  is  &e  Mh  value  (N  parameter  bins)  such  that 
^N-l  finally,  ">  "  correspons  to  the  V+lst  value  (N  parameter  bins)  such  that  v  >  vj^f. 

+nrm  is  a  probability  in  the  interval  0  <  nm  <  1 


Table  A.5b  Qualifying-Letter  Density  Table 


Hour  Intervals  (UT) 

Qualifying 

Letter 

0-1 

1-2 

2-3 

23-24 

NET 

A 

rmn 

ram 

nnn 

nrm 

nrm 

nrm 

nrm 

nnn 

D 

rmn 

rmn 

nrm 

nnn 

rmn 

nrm 

nrm 

nrm 

E 

nnn 

nnn 

nnn 

nnn 

nnn 

ram 

nrm 

rmn 

. 

nnn 

nnn 

nrm 

nnn 

nrm 

nnn 

nnn 

nrm 

. 

rmn 

nnn 

nnn 

ram 

nrm 

nnn 

rmn 

nrm 

nrm 

nnn 

nrm 

rmn 

rmn 

rmn 

rmn 

nrm 

'7 

nnn 

rmn 

nnn 

rmn 

nrm 

rmn 

nrm 

nnn 

Table  A.Sc  Descriptive-Letter  Density  Table 


Hour  Intervals  (UT) 

Descriptive 

Letter 

0-1 

1-2 

2-3 

23-24 

NET 

A 

nnn 

rmn 

rmn 

rmn 

nnn 

rmn 

nrm 

rmn 

B 

ram 

ram 

nnn 

nnn 

nrm 

nrm 

rmn 

nnn 

C 

rmn 

nrm 

rmn 

ram 

nrm 

nnn 

nnn 

nrm 

. 

nrm 

nnn 

nrm 

nnn 

nnn 

nnn 

nnn 

nnn 

, 

nrm 

nnn 

nrm 

nnn 

nrm 

nnn 

nrm 

nrm 

nnn 

rmn 

nnn 

nrm 

ram 

ram 

nrm 

nnn 

Z 

nnn 

rmn 

rmn 

nnn 

nnn 

rmn 

nnn 

nnn 
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A.3  lONOSTAT  PROGRAM  LISTING 


SFREEFORM 

SLARGE 

"  Program  lONOSTAT 

II 

"  Purpose:  Process  an  lONOSONDE  data  file  following  the  conventions 
"  established  in  UAG-23  and  UAG-23A. 

"  Configuration;  Version  1.00,  3/29/93 

"  Developed  by;  Robert  I.  Desourdis,  Jr. 

"  Communications  Engineering  Laboratory 

”  Science  Applications  International  Corporation 

"  300  Nickerson  Rd.,  Marlborough,  MA  01752 

"  Voice:  (508)460-9500  FAX;  (508)460-8100 

"  Developed  for;  Naval  Undersea  Warfare  Center 
"  New  London  Laboratory 

"  New  London,  CT 

PROGRAM  lONOSTAT 

"  Declare  variable  types  and  dimension  arrays 

"  Defme  a  general  input  record  with  120  columns  and  a  holder  for  the 
"  previous  record 

CHARACTER*  120  RECORD 

"  Defme  parameters  to  hold  values  describing  the  ionosonde  station 

CHARACTER*20  STATION_name,  STATION_check 
CHARACTER*5  STATION_code 
CHARACTER*4  TIME_meridian,  STATION_COLAT_ddg 
CHARACTER*4  STATIONJELNG_ddg,  YEAR 
CHARACTER*2  MONTH 

INTEGER*4  P_code(2),  N_file,  M_l,  M_2,  Y_l,  Y_2,  Y_3,  Y_4 
INTEGER*4  YEARJ,  MONTHJ,  DAY_i,  HOUR_i 
INTEGER*4  YEARJ,  MONTHJ,  DAY J  HOURJ 

"  Define  5-character  code  derived  from  UAG-23  for  hourly  interval 

CHARACTER*!  P_char(3),  Q_char,  D_char 

"  Define  bins  for  yearly  distribution  of  hourly  values 


REAL*4  HOURLY_Pbms(30,24.100).  NET_Pbins(30,100) 

REAL*4  HOURLY_Qbiiis(30,24.10),  NET_Qbins(30,10) 

REAL*4  HOURLY_Dbins(30,24,23).  NET_Dbins(30,23),  M_hours(30,24) 
REAL*4  N_HOURLY_P(30,24),  N_HOURLY_Q(30,24),  N_HOURLY_D(30,24) 
REALM  N_P(30),  N_Q(30),  N_D(30),  d_P.  P_l.  P_2.  P_3 
REAL*4  P_low(30),  P_hgh(30),  P_scale(3) 

REAL*4  P  value,  P_min,  P_max 

REAL *4  Plhours(30),  N_houn!(30).  BLANK_hours(30),  :.IAX_hours(30) 
INTEGER*4  Q_mdex,  D_mdex,  i_FILE,  i_CODE,  P_mdex(73) 

INTEGER*4  N_Pbins(30).  i_MONTH,  PARM_code,  P_type(30) 


Define  unused  parameters  for  dual-use  input  file  (lONOSTAT/HFSONE-HFLINKS) 


REAL*4  D_km(10),  fMHzJow,  fMHz_hgh,  hkmjow,  hkm_hgh,  adgjow,  adg_hgh 

INTEGER*4  N_DST,  N_FRQ,  N_ANG.  N_HGT 

LOGICAL*!  MONTHLY_flag,  Esjayer_flag 

Define  a  character  string  of  BLANK_line  for  null  string  searches 

CHARACTER*21  BLANKJine 

Define  list  of  input  files  for  analysis 

CHARACTER*20  ION_files(25),  INP_file,  OUT_file,  file_INP 

Define  heading  variables  for  output 

CHARACTER*  10  P_names(30) 

CHARACTER*5  QUAL_heading,  DESC_heading 
CHARACTER*5  P_heading(3),  DIM_heading(3) 

CHARACTER*25  HOUR_heading 
CHARACTER*!  QUAL_value(!0),  DESC_value(23) 


Define  logical  variables 

LOGICAL*!  V_flag,  CODE_mask(30),  F_flag,  DIV_flag,  Q_flag,  D_flag 
LOGICAL*!  YEAR_mask(25),  MONTH_mask(!2),  DAY_mask(3 !),  HOUR_mask(24) 


Initialize  constants 


DATA  P_index/!,2,3,4,5,6,4*0,7,8,0,9,!0,0,!!,3*0,- 

!2,0,!3,0,!4,0,!5,3*0,!6,!7,!8,!9,20,5*0,- 

21,0,22,23,24,5*0,25,26,27,17*0,28,29,30/ 

DATA  P_type/3  *  1 ,3, 2*2,2*  1 ,3,2,2, 1 , 1 ,2,2,4*  1 ,2,- 


1,1, 3, 2,3*1, 3*1/ 


DATA  P_scale/1 0.0, 1 .0, 1 00.0/ 

DATABLANKJine/*  V 

DATAP_names/’foF2','fxF2','fzF2','M(3000)Fr,'h"F2'.'fpF2',- 
'foF  1  ’,'fxF  1  ','M(3000)F  1  ’,'hT  1  •,'h"F','foE','foE2’,'h‘*E','h"E2',- 
ToEs^'fxEs^■fbEs^•fEs^'h"Es^ToF1.5’,’flnin•,■M(3000)F1.5•,- 
■h"fl.5','for,'fxI','fmr,'I(2000)','r,'I(mm)V 


DATA  P_heading/'  FREQ',’  HGHT','  '/ 

DATA  DIM_heading/'(MHz)','  (km)','FACTR'/ 
DATA  HOUR_headin^  Universal  Time  in  Houm '/ 
DATA  QUAL_heading/’  QUAL’/ 

DATA  DESC_heading/'  DESC'/ 


DATAQUAL_value/'A','D','E',T,'r,'M’,'0','T,'U’,'Z'/ 

DATADESC_value/'A','B','C','D',’E','F','G','H','K','L',- 

■M’,'N’,'0',’P','Q','R','S','T','V,'W’,'X','Y'.'Z'/ 


II  *if^tm********ttm*ttitti^t************************************************ 

II  4i«**4i4i*«**«:|i*««4i4i:ti«*iti******4i**«:»*4i****i|ii»*4i**«****:4i4iiti*4i*4i***4i*4t*:^*»i|i 

"  Open  input  file. 

WRITE(6,*)  'Type  name  of  input  file  without  extension  ".INP"' 

READ(6,700)  file_INP 
700  FORMAT(a20) 


"  Concatenate  input  and  output  file  names. 

INPJile  -  file_INP(l:LEN_TRIM(file_INP))//'.INP’ 
OUT_file  -  file_INP(l:LEN_TRIM(file_INP))//’.OUT' 


"  Read  input  file. 

OPEN(UNIT-2,STATUS-'OLD',FILE-INP_file) 
READ(2,700)  STATION_check 
READ(2,*)  HOURJ,  DAY_i,  MONTHJ,  YEARJ 
READ(2,*)  HOUR_f,  DAY_f,  MONTHJ,  YEARJ 
READ(2,*)  (  YEAR_maskG),  j  -  1.  25  ) 

READ(2,*)  (  MONTH_mask(j),  j  -  1,  12  ) 

READ(2,*)  MONTHLYJag 
READ(2,*)  (  DAY_maskO),  j  -  1,  3 1 ) 

READ(2,*)  (  HOUR_mask(j),  j  - 1,  24  ) 

READ(2,*)  N_DST,  (  D_kmO),  j  -  1,  N_DST  ) 

READ(2,*)  fMHzJow,  fMHzJgh,  N_FRQ,  Es_layer_flag 
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READ(2,*)  hkm_low,  hkm_hgh,  N_HGT 
READ(2,*)  adg_low,  adg_hgh,  N  ANG 
DO  i  -  1, 30 

READ(2,*)  j,  CODE_mask(j),  P  low(j),  P_hgh(j),  N_PbinsO) 
END  DO 

READ(2,*)DIV_flag 

"  Read  names  of  standard  ionosonde  files.  If  an  error  occurs  or  if 
"  if  no  input  filenames  are  present,  output  the  appropriate  message 
"  and  stop  execution 

i_FILE-  1 

100  READ(2,700,ERR-998,END-999)  lONJiles(iJFILE) 

"  Determine  the  number  of  ionosonde  input  files 

DO  WHILE  ( i_FILE  GT.  0  ) 
i_FILE  -  i_FILE  +  1 

READ(2, 700, END-102)  ION_files(i_FILE) 

END  DO 

102  N_file-i_FILE-l 

"  INITIALIZE  all  bin  values  to  zero 

N_hours  -  0.0 
P__hours  -  0.0 
BLANK_hours  -  0.0 
MAX_hours  -  0.0 
NET_Pbins  -  0.0 
HOURLY_Pbins  -  0.0 

NET_Qbins  -  0.0 
HOURLY_Qbins  -  0.0 

NETJDbins  -  0.0 
HOURLY_Dbins  -  0.0 

”  START  of  FILE  loop 
DOi_FILE-l,N_file 
"  Open  input  file 

OPEN(UNIT-4,STATUS-'OLD',FILE-ION_files(i_FILE)) 


"  Start  of  parameter  loop 
i_BLOCK  -  0 

DO  WHILE  ( i_BLOCK  GE.  0  ) 


"  Read  the  next  line  of  the  current  input  file  and  check  the  first 
"  21  characters  to  make  sure  they  are  nonblank.  If  they  are  blank, 
"  then  a  new  record  should  be  read. 

104  READ(4,702,END-1 12)  RECORD 

702  FORMAT(al20) 

IF  (  RECORD(1.21)  .EQ.  BLANKJine  )  GO  TO  104 


"  Extract  station  name,  code,  standard  time  meridian,  geographic  co-latitude, 

”  east  longitude,  year,  month,  and  the  parameter  code 

STATION_name  -  RECORD(l  ;20) 

IF  (  STATION_name  .NE.  STATION_check  )  GO  TO  104 
STATION  code  -  RECORD(21 :26) 

TIME_ineridian  -  RECORD(26:29) 

STATION_COLAT_ddg  -  RECORD(30;33) 

STATION_ELNG_ddg  -  RECORD(34:37) 

YEAR-RECORD(38;41) 

Y_1  -  ICHAR(  RECORD(38:38)  )  -  48 
Y_2  -  ICHAR(  RECORD(39:39)  )  -  48 
Y_3  -  ICHAR(  RECORD(40.40)  )  -  48 
Y_4  -  ICHAR(  RECORD(41 :41)  )  -  48 
i_YEAR  -  1000  ♦  Y_1  +  100  *  Y_2  +  10  •  Y_3  +  Y_4 
IF  ( i_YEAR  LT.  YEARJ  .OR  i_YEAR  GT.  YEAR_f  .OR- 
NOT.  YEAR_mask(i_FILE)  )  GO  TO  1 12 

MONTH  -  RECORD(42:43) 

M_1  -  ICHAR(  RECORD(42:42) )  -  48 
M_2  -  ICHAR(  RECORD(43;43)  )  -  48 
i_MONTH  -  10  *  M_1  +  M_2 

P_code(l)  -  ICHAR(  RECORD(44;44)  )  -  48 
P_code(2)  -  ICHAR(  RECORD(45.45)  )  -  48 
PARM_code  - 10  *  P_code(l)  +  P_code(2) 
i_CODE  -  P_index(  PARM_code  +  1 ) 

IF  (  ( i_YEAR  EQ.  YEARJ  AND.  i_MONTH  .LT.  MONTHJ  )  .OR- 
( i_YEAR  EQ.  YEARJ  AND.  i_MONTH  GT.  MONTHJ)  OR- 
NOT.  CODE_mask(  i_CODE  )  OR- 
.NOT.  MONTH_mask(  i_MONTH  )  )  THEN 
DO  i-  1,31 

READ(4,702,END-1 12)  RECORD 


END  DO 
GOTO  110 
END  IF 

WRITE(6.*)  YEAR,  *  MONTH, '  CODE:  RECORD(44;45),- 
'  MON_riles(  i_FILE ) 


F_flag  -  FALSE. 


”  Determine  the  upper  and  lower  bin  limits  of  the  parameter  for  either 
"  frequency  (i_DIM  >  1)  or  height  (i_DIM  -  2) 

i_DIM  -  P_type(  i_CODE  ) 

"  Compute  parameter  increment  value 

d_P  -  (  P_hgh(i_CODE)  -  P_low(i_CODE)  > 

/  FLOAT(  N_Pbins(i_CODE)  ) 

"  START  loop  for  each  day  of  the  current  month 

DOi_DAY-  1,31 

"  Read  next  input  record  and  divide  into  24  S-character  strings 
"  Check  the  first  20  characters  to  make  sure  they  are  nonblank.  If  they 
"  are  blank,  then  a  new  record  should  be  read. 

READ(4,702,END-997)  RECORD 
IF  (  RECORD(l  :21)  EQ.  BLANK_line  )  GO  TO  1 10 

"  Check  to  see  if  current  day  is  within  interval  to  be  processed 

IF  (  ( i_YEAR  EQ.  YEARJ  AND.  i_MONTH  EQ.  MONTHJ- 
AND.  i_DAY  LT.  DAY_i )  OR.- 
( i_YEAR  EQ.  YEARJ  AND.  i_MONTH  EQ.  MONTH J- 
AND.  i_DAY  GT.  DAYJ)  OR.- 
.NOT.  DAY_mask(i_DAY)  )  CYCLE 

"  START  loop  for  each  hour  of  the  current  day 

DOiJIOUR-  1,24 

P_value  -  0.0 

"  Check  to  see  if  current  hour  is  within  interval  to  be  processed 

IF  (  ( i_YEAR  .EQ.  YEARJ  .AND.  i_MONTH  .EQ.  MONTH J- 


A-17 


AND.  i_DAY  .EQ.  DAYJ  AND.  i_HOUR  .LT.  HOURJ  )  OR  - 
( i_YEAR  EQ.  YEAR_f  AND.  i_MONTH  EQ  MONTH,**- 
AND.  i_DAY  EQ.  DAYJ  AND.  i_HOUR  .GT.  HOURJ)  OR- 
.NOT.  HOUR_mask(i_HOUR)  )- 

CYCLE 

k_CHAR-  5  *  ( i_HOUR- 1  )  +  1 

MAX_hours(i_CODE)  -  MAX_hours(i_CLDE)  +  1.0 

M_hours(i_CODE.i_HOUR)  -  M_hours(i_CODE,i_HOUR)  +  1.0 

IF  ( RECORD(k_CHAR:k_CHAR+4)  EQ. '  ' )  THEN 

BLANK_hours(i_CODE)  -  BLANK_hours(i_CODE)  +  1.0 
CYCLE 

ELSE  IF  (  RECORD(k_CHAR:k_CHAR+4)  NE.  C  )  THEN 
N_hours(i_CODE)  -  N_hours(i_CODE)  +1.0 
END  IF 

"  Read  scaled  parameter  for  the  current  hour  at  the  ionosonde 

P_char(l)  -  RECORD(k_CHAR;k_CHAR) 

P_char(2)-RECORD(k_CHAR+l.k  CHAR+1) 

P_char(3)  -  RECORD(k_CHAR+2:k3cHAR+2) 

Q_char  -  RECORD(k_CHAR+3;k_CHAR+3) 

D_char  -  RECORD(k_CHAR+4:k_CHAR+4) 

IF  (  P_char(l)  .NE.  ”  )  THEN 


P Jiours(i_CODE)  -  P_hours(i_CODE)  +  1 
P_1  -  REAL(  ICHAR(  P_char(l)  )  -  48  ) 
P_2  -  REAL(  ICHAR(  P_char(2)  )  -  48  ) 
P_3  -  REAL(  ICHAR(  P_char(3)  )  -  48  ) 
V_flag  -  .TRUE. 


ELSE  ff  (  P_char(2)  .NE.  ”  )  THEN 


P_hours(i_CODE)  -  P_hours(i_CODE)  +  1 
PJ  -  0.0 

P_2  -  REAL(  ICHAR(  P_char(2)  )  -  48  ) 
P_3  -  REAL(  ICHAR(  P_char(3)  )  -  48  ) 
V_flag  -  TRUE. 


ELSE  IF  (  P_char(3)  .NE.  "  )  THEN 


P_hours(i_CODE)  -  P_hours(i_CODE)  +  1 
P_1  -  0.0 

P  2  -  0.0 


P_3  -  REAL(  ICHAR(  P_char(3)  )  -  48  ) 
V_nag-.TRUE. 

ELSE 


V_flag  -  .FALSE. 


END  IF 

IF(V_flag)THEN 

P_value  -  (  100.0*P_i  +  10.0*P_2  +  P_3  > 
/  P_scale(i_DIM) 


IF  (  P_value  .GT.  40.0  AND.  i_DIM  EQ.  1  .AND.- 
i_CODE  EQ.  7  )- 
F_flag  -  .TRUE. 


DO  i_BIN  -  1,  N_Pbins(  i_DIM  ) 

P_max  -  PJow(i_CODE)  +  i_BIN  •  d_P 
P_min  -  P_low(i_CODE)  +  ( i_BIN  -  1  )  *  d_P 


IF  ( P_value  .GT.  P_mm  .AND.  - 
P_value  .LE.  P_max )  THEN 
HOURLY_Pbiiis(i_CODE,i_HOUR,i_BIN)  -  - 
HOURLY_Pbms(i_CODE,i_HOUR,i_BIN)  +  1.0 
NET_Pbms(i_CODC i_BIN)  -  - 
NET_Pbins(i_CODE,i_B^+  1.0 
GO  TO  107 
END  IF 

END  DO 

N_HOURLY_P(i_CODE,i_HOUR)  -  - 

N_HOURLY_P(i_CODE,i_HOUR)+  1.0 
N_P(i_CODE)  -  N_P(i_CODE)  +  1.0 

END  IF 

Q_flag  -  FALSE. 

IF  (  Q_char  .NE.  "  )  THEN 


Q_index  -  0 
i  BIN-  1 


DO  WHILE  ( CLindex  EQ.  0  AND.  i_BIN  LE.  10  AND 
NOT.  Q_flag ) 

IF  ( Q_char  EQ.  QUAL_value(i_BIN)  )  THEN 
Q_mdex  -  i_BIN 
Q_flag  -  TRUE. 

END  IF 

i_BIN  -  i_BIN  +  1 
END  DO 

IF  (  Q_flag  )  THEN 

HOURLY_Qbins(i_CODE,i_HOUR,Q  index)  -  - 
HOURLY_Qbins(i_CODE,i_HOUR,Q_mdex)  +  1.0 
NET_Qbins(i_CODE,i_BIN)  -  - 
NET_Qbins(i_CODE,i_BIN)  +  1.0 
N_HOURLY_Q(i  CODE,i_HOUR)  -  - 
N  HOURLY_Q(i_CODE,i_HOUR)+  1.0 
N_Q(i_CODE)  -  N_Q(i_CODE)  +  1.0 

END  IF 

END  IF 


D_flag  -  FALSE. 


IF(D_char  .NE.  ")THEN 

Dindex  -  0 
i_BIN  -  1 

DO  WHILE  (  DJndex  EQ.  0  .AND.  i_BIN  LE.  23  AND. 
NOT.  D_flag  ) 

IF  (  D_char  .EQ.  DESC_value(i_BIN)  )  THEN 
D_mdex  -  i_BIN 
D_flag  -  .TRUE. 

END  IF 

i_BIN  -  i_BIN  +  1 
END  DO 


IF  (  D_flag  )  THEN 


HOURLY_Dbins(i_CODE.i_HOUR,D_index)  -  - 
HOURLY_Dbins(i_CODE,i_HOlJR,D_index)  +1.0 
NET_Dbins(i_CODE,i_BIN)  -  - 
NET_Dbins(i_CODE,i_BIN)  +  1.0 
N_HOURLY_D(i_CODE,i_HOUR)  -  - 
N_HOURLY_D(i_CODE,i_HOUR)+  1.0 
N_D(i_CODE)  -  N_D(i_CODE)  +  1.0 

END  IF 

END  IF 

"  End  of  hourly  loop  for  current  day,  parameter,  and  file  (year) 

END  DO 

"  End  of  daily  loop  for  current  parameter  and  file  (year) 

END  DO 

1 10  i_BLOCK  -  i_BLOCK  +  1 

IF  ( F_flag )  THEN 
WRITE(6,711)'*' 

711  FORMATC+',al) 

END  IF 

IF  ( i_MONTH  .LT.  MONTHJ  )  THEN 
CYCLE 
ELSE 
GOTO  112 
END  IF 

END  DO 

*'  All  input  records  in  the  current  input  file  have  been  read.  Proceed 
"  to  next  input  file 

112  CLOSE(UNIT-4) 

"  Consider  next  input  file  (consider  next  year) 

END  DO 

”  All  input  files  have  been  read.  Normalize  each  distribution  count 
"  by  the  numbers  of  samples 


DO  i_CODE  -  1,  30 

IF  (  .NOT.  CODE_mask(  i_CODE  )  )  CYCLE 
i_DIM  -  P_type(  i_CODE  ) 

DO  i_BIN  -  1,  N_Pbins(  i_DIM  ) 

IF(DIV_flag)THEN 
DOi_HOUR-  1,24 

IF  ( N_HOURLY_P(i_CODE,i_HOUR)  NE.  0.0  )  THEN 
HOURLY_Pbins(i_CODE,i_HOUR,i_BIN)  -  - 

HOURLY_Pbim(i_CODE,i_HOUR,i_BIN)  - 
/  N_HOURLY_P(i_CODE,i_HOUR) 

END  IF 
END  DO 

IF  (  N_P(i_CODE)  .NE.  0.0  )  THEN 

NET_Pbms(i_CODE,i_BIN)  -  NET_Pbins(i_CODE,i_BIN)  - 

/N_P(i_CODE) 

END  IF 
ELSE 

DOi_HOUR-  1,24 

IF  (  N_hours(i_CODE)  .NE.  0.0  )  THEN 
HOURLY_Pbms(i_CODE,i_HOUR,i_BIN)  -  - 

HOURLY_Pbins(i_CODE,i_HOUR,i_BIN)  - 
/  M_hours(i_CODE,i_HOUR) 

END  IF 

END  DO 

IF  (  N_houn!(i_CODE)  .NE.  0.0  )  THEN 

NET_Pbins(i_CODE,i_BIN)  -  NET_Pbms(i_CODE,i_BIN)  - 
/  MAX_hours(i_CODE) 

END  IF 
END  IF 
END  DO 
DOi_BIN-  1,  10 
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IF(DIV_flag)THEN 
DO  i_HOUR-  1,24 

IF  (  N_HOURLY_Q(i_CODE,i_HOUR)  ME.  0.0  )  THEN 
HOURLY_Qbms(i_CODE,i_HOUR,i_BIN)  -  - 

HOURLY_Qbins(i_CODE,i_HOUR,i_BIN)  - 
/  N_HOURLY_Q(i_CODE,i_HOUR) 

END  IF 
END  DO 

IF  (  N_Q(i_CODE)  NE.  0.0  )  THEN 

NET_Qbins(i_CODE,i_BIN)  -  NET_Qbins(i_CODE,i_BIN)- 
/N_Q(i_CODE) 

END  IF 
ELSE 

DOi_HOUR-  1,24 

IF  (  N  HOURLY_Q(i_CODE,i_HOUR)  NE.  0.0  )  THEN 
HOURLY  Qbins(i_CODE,i_HOUR,i_BIN)  -  - 

HOURLY_Qbms(i_CODE,i_HOUR,LBIN)  - 
/  M_hours(i_CODE,i_HOUR) 

END  IF 

END  DO 

IF  (  N_Q(i_CODE)  .NE.  0.0  )  THEN 

NET_Qbins(i_CODE,i_BIN)  -  NET_Qbins(i_CODE,i_BIN)- 
/  MAX_hours(i_CODE) 

END  IF 
END  IF 
END  DO 
DO  i_BIN  -  1,  23 
IF(DIV_flag)THEN 
DOi_HOUR-  1,24 

IF  (  N_HOURLY_D(i_CODE,i_HOUR)  .NE.  0.0  )  THEN 
HOURLY_Dbiiis(i_CODE,i_HOUR,i_BIN)  -  - 


HOURLY_Dbins(i_CODE.i_HOUR,i_BIN)  - 
/N_HOURLY  D(i_CODE,i_HOUR) 

END  IF 
END  DO 

IF  (  N_D(i_CODE)  NE.  0.0  )  THEN 

NET_Dbins(i_CODE,i_BIN)  -  NET_Dbins(i_CODE,i_BIN)- 

/N_D(i_CODE) 

END  IF 
ELSE 

DOi_HOUR-  1,24 

IF  (  N_HOURLY_D(i_CODE,i_HOUR)  .NE.  0.0  )  THEN 
HOURLY_Dbms(i_CODE,i_HOUR,i_BIN)  -  - 

HOURLY  Dbms(LCODE,i_HOUR,i_BIN)  - 
/  M_hours(i_CODE,i_HOUR) 

END  IF 

END  DO 

IF  (  N_D(i_CODE)  .NE.  0.0  )  THEN 

NET_Dbins(i_CODE,i_BIN)  -NET_Dbins(i  CODE,i_BIN)- 

/  MAX_hours(i_CODE) 

END  IF 
END  IF 
END  DO 
END  DO 

"  Output  the  probability  distributions  for  each  parameter  code,  both 
"  for  each  hour  and  over  all  hours  in  a  column  format 

OPEN(UNIT.3,STATUS-‘UNKNOWN’,ACCESS-'APPEND’,FILE-OUT_file) 

WRITE(3,704)  STATION_name 

704  FORMAT(/////25x,TONOSONDE  PARAMETER  STATISTICS  AT ',  a20) 

WRITE(3,705)  HOURJ,  DAY_i.  MONTHJ,  YEARJ,  HOUR_f,  DAY_f,- 
MONTH_f,  YEARJ 

705  FORMAT(///IOx,'IONOSONDE  measurements  processed  for  the  period: 


WRITE(3,706)  (CODE_mask(i),i-l,30) 

706  FORMAT(//10x,'Paraineter  code  mask:  ',30(11, lx)) 

DO  i_CODE  -  1,  30 

IF  (  NOT.  CODE_mask(  i_CODE )  - 

OR.  MAX_hours(i_CODE)  EQ.  0.0  )  CYCLE 

d_P  -  (  P_ligh(i_CODE)  -  P_low(i_CODE)  )- 
/  FLOAT(  N_Pbins(i_CODE)  ) 

iJDIM  -  P_type(  i_CODE  ) 

WRITE(3,708)  P_names(  i_CODE  ) 

708  FORMAT('r,20x,'*****  Statistical  results  for  parameter: 

alO,'  •*♦♦♦') 


IF  ( i_DIM  EQ.  1  )  THEN 

WRITE(3,731)  INT(P_low(i_CODE)),  INT(P_hgh(i_CODE)),- 
N_Pbms(i_CODE) 

731  FORMAT(//lx,*Minimum  frequency:  ',i4,'MHz'- 

'  Maximum  frequency:  ',i4,'MHz'- 
'  Number  of  bins:  ',i3) 

ELSE  IF  ( iJDIM  .EQ.  2 )  THEN 
WRITE(3,732)  INT(P_low(i_CODE)),  INT(P_hgh(i_CODE)),- 
N_Pbins(i_CODE) 

732  FORMAT(//lx,'Minimum  height:  ',i4,'  km 

'  Maximum  height:  ',i4,'  km 
'  Number  of  bins:  ',i3) 

ELSE 

WRITE(3,733)  P_low(i_CODE),  P_hgh(i_CODE),- 
N_Pbins(i_CODE) 

733  FORMAT(//lx,Minimum  factor:  ',f5.2,- 

'  Maximum  factor:  ',f5.2,- 
'  Number  of  bins:  ',i3) 

END  IF 

IF  (  N_hours(i_CODE)  .NE.  0.0  )  THEN 
P_hours_pct  -  100  *  P_hours(  i_CODE  )  /  N_hours(i_CODE) 

END  IF 

B_hours_pct  -  100  *  BLANK_hours(  i_CODE  )  /  MAX_hours(i_CODE) 
X_hours_pct  -  100  *  P_hours(  i_CODE  )  /  MAX_hours(i_CODE) 

WRITE(3,710)  P_names(  i_CODE  ),  INT(  MAX_hours(i_CODE)  ),- 
INT(  N_hours(i_CODE)  ),  INT(  P_hours(  i_CODE  )  ),- 
INT(  X_hours_pct ),  INT(  P_hours_pct ),- 


INT(  BLANK_hours(i_CODE)  ),  INT(  B_hours__pct ) 

710  FORMAT(//20x.'IONOSONDE  PARAMETER:  *,  alO- 
//*  Total  number  of  hours:  *,i6- 

r  Number  of  nonblank  hours:  ',i6- 

y  Number  of  nonblank  hours  with  parameter  values:  ',i6> 
y  %  of  total  hours  with  a  parameter  value:  ',i3- 

y  %  of  nonblank  hours  with  parameter  values:  ',i3- 

y  Number  of  blank-entry  hours:  ',i6- 

y  %  of  total  hours  with  blank  entry:  ',i3) 

IF(DIV_flag)THEN 

WRITE(3,722) 

722  FORMAT(/y  Probabilities  conditioned  on  usable  hours') 

ELSE 

WRITE(3,724) 

724  FORMAT(/y  Probabilities  determined  ov«^  all  hours') 

END  IF 

WRITE(3,712)  P_heading(  i_DIM  ),  HOUR_heading 
712  FORMAT(//4x,a5,20x,a25) 

WRITE(3,714)  DIM_heading(  i_DIM  ),  (i.i-1,24) 

714  FORMAT(4x,a5,24(i3,2x),'NEr) 

DO  iJBIN  -  1,  N_Pbins(  i_CODE  ) 

P_va!ue  -  P Jow(i_CODE)  +  i_BIN  *  d_P 

WRITE(3,716)  P_value,- 

(HOURLY_Pbins(i_CODE,i_HOUR,i_BIN),i_HOUR-l,24),- 

NET_Pbins(i_CODE,i_BIN) 

716  FORMAT(lx,f6.2,25f5.2) 

END  DO 

WRITE(3,718)  HOUR_heading 
718  FORMAT(///26x,a25) 

WRITE(3,714)  QUAL_heading,  (i,i-l,24) 

DOi_BIN-  1,  10 

WRITE(3,720)  QUAL_value(i_BIN),- 

(HOURLY_Qbins(i_CODE,i_HOUR,i_BIN),i_HOUR-l,24),- 

NET_Qbins(i_CODE,i_BIN) 

720  FORMAT(6x,al,25f5.2) 

END  DO 
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WRITE(3,718)  HOUR_headmg 
WRITE(3,714)  DESC_hcadmg,  (i,i-1.24) 

DOi_BIN-  1,23 

WRITE(3,720)  DESC_value(i_BIN),- 

(HOURLY_Dbms(i_CODE,i_HOUR,LBIN).i_HOUR  -1 ,24),- 
NET_Dbins(LCODE,i_BIN) 

END  DO 

END  DO 

CLOSE(UNIT-2) 

STOP 

997  WRITE(6,*)  'Error  on  input,  probably  wrong  number  of  - 

characters  in  record' 

CLOSE(UNIT-2) 

CLOSE(UNIi-3) 

STOP 

998  WRITE(6,*)  'Error  on  input,  probably  no  access  to  input  file' 
CLOSE(UNIT-2) 

CLOSE(UNIT-3) 

STOP 

999  WRITE(6,’*)  "No  ionosonde  input  files  were  listed' 

CLOSE(UNIT-2) 

CLOSE(UNIT-3) 

STOP 


END 


APPENDIX  B 


lONOLINK  COMPUTER  PROGRAM 


B.1  DESCRIPTION  AND  INSTALLATION 

lONOLINK  is  a  Microsoft  FORTRAN  5.0  computer  program  developed  and  executed  on  a  Gateway 
2000  486/33-MHz  PC.  The  program  was  written  and  drugged  using  the  Power  Workbench  (PWB) 
development  tool  from  I«licrosoft  (MS)  which  is  available  with  its  FORTRAN  product.  MS>FORTRAN 
5.0  employs  ANSI  FORTRAN  77  as  well  as  several  additional  features  for  compatibility  with  VAX 
FORTRAN  available  from  the  Digital  Equipment  Corporation.  The  purpose  of  the  lONOLINK 
program  is  to  accumulate  numerical  densities  for  oblique  standard  MUF  (maximum  usable  frequency) 
values  using  input  files  in  the  "NEW  URSI"  data  format  as  published  in  International  Council  of 
Scientific  Unions  Panel  on  World  Data  Centers  "GUIDE  to  the  WORLD  DATA  CENTER  SYSTEM", 
Part  2.  These  parameters  include  hourly  junction  frequencies  (JFs),  "standard"  maximum  usable 
frequency  (MUF)  multipliers,  and  ionospheric  reflection  heights  (virtual  heights),  for  the  each  of  the 
observed  ionosperhic  layers. 

lONOLINK  consists  of  a  two  source  code  modules,  lONOLINK.FOR  and  HFLINK.FOR  which  are 
compiled  and  linked  by  the  PWB  tool  using  the  "make"  file  called  HF.MAK  into  IONOLINK.EXE. 
Proper  use  of  the  MB-PWB  tool  is  beyond  the  scope  of  this  appendix.  The  executable  image  is 
invoked  at  the  user  prompt  from  drive  C  by  the  command: 

OlONOLINK 

where  the  highlighted  and  underlined  text  indicates  user  entry.  The  "O"  in  this  example  is  displayed 
by  the  PC.  The  program  then  asks  the  user  for  the  name  of  the  desired  lONOLINK  input  file  with  the 
following  prompt: 

Type  name  of  input  file  without  extension  ".INP" 

The  user  then  types  the  name  of  the  input  file  without  the  trailing  (.)  or  file  extension.  The  lONOLINK 
program  assumes  that  the  input  file  extension  is  ".INP”.  For  example,  if  the  user’s  input  file  is  called 
ION1970.INP  and  it  resides  in  directory  "INPUT"  on  drive  "D",  &en  the  user  would  respond  to  the 
prompt  with 

D:\INPUTMON1970 

and  the  lONOLINK  program  would  automatically  read  file  ION1970.INP  in  the  indicated  directory. 

B.2  INPUT  FILE  DESCRIPTION 
B.2.1  lONOLINK  Input  File 

The  user-input  file  must  be  created  using  a  standard  ASCII  editor.  lONOLINK  reads  this  input  file 
in  a  format-free  format,  so  exactly  one  comma  (,)  or  one  or  more  spaces  may  be  used  to  delimit  entries. 
For  example,  consider  the  following  example  input  file: 
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SCOTT  BASE  1 

1,  1. 1.  1  2 

24,31,14,2000  3 

T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T  4 

T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T  5 

T  6 

T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T.  T,  T,  T.  T,  T.  T,  T.  T,  T,  T,  T,  T,  T,  T,  T,  T,  T  7 

T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T,  T  8 

10,  20.0,  50.0,  100.0,  200.0,  400.0,  600.0,  800.0, 1000.0,  1500.0,  2000.0  9 

2.0,  30.0,  56,  T  10 

0.0,  600.0,  60  1 1 

0.0,  90.0,  60  12 

1,  T,  0.0,  12.0,  60  13 

2,  F,  0.0,  30.0,  60  14 

3,  F,  0.0,  30.0,  60  15 


4,  T,  2.0, 4.0,  50  16 

5,  F,  0.0,  600.0,  60  17 

6,  F,  0.0,  600.0,  60  18 

7,  T,  0.0,  60.0,  60  19 

8,  F,  0.0,  30.0,  60  20 

9,  F,  0.0,  10.0,  50  21 

10,  F,  0.0,  600.0,  60  22 

11,  T,  150.0,600.0,45  23 

12,  T,  0.0,  5.0,  25  24 

13,  F,  1.0,30.0,60  25 

14,  T,  90.0,  150.0,  60  26 

15,  F,  0.0,  600.0,  60  27 

16,  T,  0.0,  10.0,  50  28 

17,  F,  1.0,30.0,60  29 

18,  T,  0.0,  5.0,  25  30 

19,  F,  1.0,30.0,60  '31 

20,  T,  90.0,  190.0,  20  32 

21,  F,  1.0,30.0,60  33 

22,  T,  0.0,  5.0,  25  34 

23,  F,  0.0,  10.0,  50  35 

24,  F,  0.0,  600.0,  60  36 

25,  F,  1.0,30.0,60  37 

26,  T,  0.0,  16.0,  40  38 
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27,  F,  1.0,  30.0,  60 

39 

28,  F,  1.0,  30.0,  60 

40 

29,  F,  1.0,  30.0,  60 

41 

30,  F,  1.0,  30.0,  60 

42 

T 

43 

D:\NUWCION\67Q70.NEW 

44 

D:\NUWCION\67Q71  .NEW 

45 

D:\NUWCION\67Q72.NEW 

46 

D:\NUWCION\67Q77.NEW 

68 

Each  record  (line)  is  shown  numbered  to  the  right  of  the  input  values  to  provide  an  index  for  reference 
to  each  item  in  this  description.  These  numbers  must  not  appear  in  the  user-input  file  or  an  input  error 
will  occur.  A  description  of  each  input  value  refer«iced  by  these  numbers  is  provided  in  Table  A-1 . 

B.2.2  lonosonde  Data  File  Format 

The  "NEW  URSI"  data  format  as  published  in  International  Council  of  Scientific  Unions  Panel  on 
World  Data  Centers  "GUIDE  to  the  WORLD  DATA  CENTER  SYSTEM",  part  2,  defmes  the  format  of 
the  ionosonde  data  input  files.  Although  this  format  includes  hourly  median,  upper/lower  quartile,  and 
upper/lower  decile  values  derived  for  each  parameter,  none  of  these  entries  were  provided  in  the  data 
files  provided  as  GFI  for  this  study.  The  program  should  be  capable  of  reading  ^ese  values  without 
failure,  although  it  does  not  provide  these  values  in  its  output. 

Data  for  each  parameter  during  one  month  form  a  physical  block  of  fixed  length  4800  bytes,  which 
comprise  40  records  each  of  length  120  bytes.  The  first  record  identifies  the  station,  month  of 
observation,  and  the  parameter  recorded.  Subsequent  records  contain  the  actual  data  in  the  form  of  24 
groups  of  5  characters  representing  values  for  the  24  hours  of  the  day.  Each  5  character  group  is  coded 
using  the  rules  laid  down  in  UAG-23.  Data  for  a  year  form  a  file  within  which  the  order  of  the  blocks 
must  follow  time  order.  The  order  of  the  parameters  within  the  file  is  not  significant.  The  format  of 
each  physical  block  is  provided  in  Table  B.2. 

Note  that  definitions  for  parameters  I  and  I(xxx),  records  41  and  42,  respectively,  were  not  found  in 
UAG-23.  These  values  were  not  required  for  the  analysis  performed  on  HF  links  in  study  for  which 
lONOLINK  was  developed. 


Table  B.1  Input  Variable  Descriptions  for  lONOLlNK  Program 


INPUT 

FILE 

ROW 

NUMBER 

ITEM 
NUMBER 
IN  ROW 

FORTRAN 
VARIABLE  TYPE 

DESCRIPTION 

TYPICAL 

VALUES 

1 

1 

CHARACTER*20 

Name  of  lonosonde  station  used 
to  fmd  the  start  of  each  month's 
data  records 

SCOTT 

BASE 

2 

1 

INTEGER*4 

First  hour  in  time  interval  for  bin- 
accumulation 

1 

It 

2 

II 

First  day  in  time  interval  for  bin 
accumulation 

1 

n 

3 

H 

First  month  in  time  interval  for 
bin  accumulation 

1 

II 

4 

II 

First  year  in  time  interval  for  bin- 
accumulation 

1970 

3 

1 

INTEGER*4 

Last  hour  in  time  interval  for  bin- 
accumulation 

II 

2 

II 

Last  day  in  time  interval  for  bin 
accumulation 

II 

3 

II 

Last  month  in  time  interval  for  bin 
accumulation 

12 

II 

4 

II 

Last  year  in  time  interval  for  bin- 
accumulation 

l?72 

4 

1-25 

LOGICAL*! 

Use/ignore  MASK  for  up  to  25 
years  of  ionosonde  data  files,  one 
file  per  year,  e.g.,  1970  -  1972 

lorF 
for  each 
entry 

5 

1-12 

LOGICAL*! 

Use/ignore  MASK  for  up  to  12 
months  of  ionosonde  data  for  each 
year  (file),  1  through  12 

TorF 
for  each 
entry 

6 

1 

LOGICAL*! 

Logic  switch  for  program 
lONOLINK,  not  used  in  program 
lONOLINK:  T  creates  hourly 
FOT,  MUF  (standard),  and  HPF 
statistics  for  oblique  HF  links,  F 
creates  same  density  tabulations 

lorF 

ignored 

7 

1-31 

LOGICAL*! 

Use/ignore  MASK  for  up  to  31 
days  of  ionosonde  data  for  each 
month  (1  through  3 1) 

'^.orF 
for  each 
entry 

8 

1-24 

LOGICAL*! 

Use/ignore  MASK  for  up  to  24 
hours  of  ionosonde  data  for  each 
day  (1  through  24) 

lorF 
for  each 
entry 
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Table  B.1  Input  Variable  Descriptions  for  lONOLlNK  Program  (Continued) 


INPUT 

FILE 

ROW 

NUMBER 

ITEM 
NUMBER 
IN  ROW 

FORTRAN 
VARIABLE  TYPE 

DESCRIPTION 

VALUES 

9 

1 

INTEGER*4 

Number  of  oblique  path  lengths 
for  lONOLINK  (10  MAX) 

10 

9 

2-11 

REAL*4 

Oblique  path  lengths  (km)  for 
lONOLINK,  not  used  in  program 
lONOLINK  (10  values  MAX) 

10 

1 

REALM 

Lower  frequency  limit  (MHz)  for 
lONOLINK-computed  EOT,  MUF, 
&  HPF  values 

2*0 

tt 

2 

REAL*4 

Upper  frequency  limit  (MHz)  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values 

60.0 

H 

3 

INTEGER*4 

Number  of  frequency  bins  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values  (60  MAX) 

56 

II 

4 

LOGICAL*! 

Logical  switch  to  turn  off  sporadic 

E  layer  in  lONOLINK  analysis 

lorF 

11 

1 

REAL*4 

Lower  height  limit  (km)  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values 

M 

H 

2 

REAL*4 

Upper  height  limit  (MHz)  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values 

600.0 

II 

3 

INTEGER*4 

Number  of  height  bins  for 
lONOLINK-computed  FOT,  MUF, 
&  HPF  values  (60  MAX) 
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Table  B.1  Input  Variable  Descriptions  for  lONOLINK  Program  (Continued) 


INPUT 

FILE 

ROW 

NUMBER 

ITEM 
NUMBER 
IN  ROW 

FORTRAN 
VARIABLE  TYPE 

DESCRIPTION 

VALUES 

12 

1 

REALM 

Lower  antenna  elevation  angle 
limit  (deg)  for  lONOLINK- 
computed  EOT.  MUF.  &  HPF 
values 

OjO 

M 

2 

REAL*4 

Upper  antenna  elevation  angle 
limit  (deg)  for  lONOLINK- 
computed  EOT.  MUF.  &  HPF 
values 

90.0 

H 

3 

INTEGER*4 

Number  of  angle  bins  for 
lONOLINK-computed  EOT.  MUF. 
&  HPF  values  (60  MAX) 

60 

13.  14. 

15.  19. 
20.  24. 
25.  28. 
29.  30. 
31,33. 
34.  37. 
38.39 

1 

LOGICAL*! 

Logical  switch  to  turn  on  analysis 
for  the  corresponding  ionosonde- 
scaled-frequency  parameter  codes 
described  in  Section  B.2.2.  A  "T" 
tells  the  lONOLINK  program  to 
process  the  parameter.  not 
processed  if  "F". 

TorF 

II 

2 

REAL*4 

Minimum  value  of  frequency  to  be 
used  in  density  accumulation  bins 

2:0 

II 

3 

REAL*4 

Maximum  value  of  frequency  to  be 
used  in  density  accumulation  bins 

30.0 

II 

4 

INTEGER*4 

Number  of  frequency  bins  to  be 
used  in  density  accumulation  bins 

28 

1 

1 

LOGICAL*! 

Logical  switch  to  turn  on  analysis 
for  the  corresponding  ionosonde- 
scaled-factor  parameter  codes 
described  in  Section  B.2.2.  A  "T" 
tells  the  lONOLINK  program  to 
process  the  parameter.  not 
processed  if  "F". 

i 

lorF 

If 

2 

REAL*4 

Minimum  value  of  factor  to  be 
used  in  density  accumulation  bins 

2^0 

II 

3 

REAL*4 

Maximum  value  of  factor  to  be 
used  in  density  accumulation  bins 

m^i 

II 

4 

INTEGER*4 

Number  of  factor  bins  to  be  used  in 
density  accumulation  bins 

20 

Table  B.1  Input  Variable  Descriptions  for  lONOLlNK  Program  (Continued) 


INPUT 

FILE 

ROW 

NUMBER 

ITEM 
NUMBER 
IN  ROW 

FORTRAN 
VARIABLE  TYPE 

DESCPIPTION 

VALUES 

17,  18. 
22,  23. 
26.  27, 
32,36 

1 

LOGICAL*! 

Logical  switch  to  turn  on  analysis 
for  the  corresponding  ionosonde- 
scaled-height  parameter  codes 
described  in  Section  B.2.2.  A  "T" 
tells  the  lONOLINK  program  to 
process  the  parameter,  not 
processed  if  "F  . 

1 

lorF 

II 

2 

REAL*4 

Minimum  value  of  height  to  be 
used  in  density  accumulation  bins 

H 

3 

REAL*4 

Maximum  value  of  height  to  be 
used  in  density  accumulation  bins 

600.0 

II 

4 

INTEGER*4 

Number  of  height  bins  to  be  used 
in  density  accumulation  bins 

M 

41,42 

1 

LOGICAL*  1 

Logical  switch  to  turn  on  analysis 
for  the  corresponding  ionosonde- 
scaled  parameter  code  as  described 
in  Section  B.2.2.  A  "T"  tells  the 
lONOLINK  program  to  process  the 
parameter,  not  processed  if 

TorF 

II 

2 

REAL*4 

Minimum  value  of  parameter  to  be 
used  in  density  accumulation  bins 

Hi 

II 

3 

REAL*4 

Maximum  value  of  parameter  to  be 
used  in  density  accumulation  bins 

600.0  (?) 

II 

4 

INTEGER*4 

Number  of  parameter  bins  to  be 
used  in  density  accumulation  bins 

60(7) 

43 

1 

LOGICAL*! 

Logical  switch  to  have  densities  on 
total  elapsed  time  or  elapsed  time 
for  which  ionosonde  data  was 
possible,  i.e.,  no  equipment  failure 
(qualifying  letter  "C") 

lorF 

44-68 

1 

CHARACTER*20 

Ionosonde  data  filenames, 

including  drive  and  subdirectory,  if 
not  the  same  as  IONOLINK.EXE, 
up  to  25  filenames  may  be 
provided 

See 

Section 
B.2.1  for 
examples 
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Record 


1 


1 


1 


Table  B.2  lonosonde  (New  URSI)  Data  Format 


Columns 


1-20 


21-25 


26-29 


30-  33 


34-  37 


38-41 


42-  43 


44-  45 


46-120 


24  X  5-character  code 


24  X  5-character  code 


24  X  5-character  code 


24  X  5-character  code 


24  X  5-character  code 


24  X  5-character  code 
(if  available) 


Description 


Station  name 


Station  code 


Standard  time  meridian  of  the  station  (e  g. 
150W,  90E,  etc.,  with  OOOW  or  OOOE  =  UT) 


Geographic  co-latitude  in  tenths  of  a  degree 


Geographic  East  longitude  in  tenths  of  a  degree 


Year 


Month 


Parameter  code 

_ (See  UAG-23  characteristic  code) _ 

Spare 


Hourly  data  for  the  fu'st  day  of  the  month  (i.e. 
foF2  values  -  078  R,  080  ,  etc.) 


Hourly  data  for  the  second  day  of  the  month 
(i.e.  foF2  values  -  078  R,  080  ,  etc.) 


Hourly  data  for  the  thirty-first  day  of  the  month 
(If  less  than  3 1  days,  blank  fill.) 


Medians 


Median  Count 


Upper  Quartile 


Lower  Quartile 


Upper  Decile 


Range 


Lower  Decile 


Spare 


Not  all  of  the  5-character  scaled-parameter  values  were  reported  for  each  hour  of  the  15  years  of 
Scott  Base  ionosonde  data  provided  for  the  study.  In  this  case,  blank  fill  was  used  as  a  place  holder. 
Note  that  the  15  files  provided  for  this  study  were  67Q58.NEW,  67Q70.NEW,  67Q71.NEW,  ..., 
67Q83.NEW.  None  of  these  files  included  rows  33-40  in  the  monthly  data  blocks  for  each  parameter. 
The  lONOLINK  program  should  be  able  to  read  these  values  if  present  without  disturbing  normal 
execution.  If  N  parameters  have  been  scaled,  then  there  will  be  N  blocks  for  each  of  the  months 
contained  within  a  single  file.  For  the  standard"  N  =  14  parameters,  the  ionosonde  data  file  should  be 
organized  as  shown  in  Table  B.3.  A  complete  description  of  the  parameter  codes,  descriptive,  and 
qualification  letters  summarized  in  Table  B.4a,  b,  and  c,  respectively,  can  be  found  in  UAG-23  []. 
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Table  B.3  lonosonde  Data  File  Organization 


Block 

Month 

Parameter 

(Characteristic) 

Numeric 

code 

1 

January 

foF2 

00 

2 

January 

M(3{)00)F2 

03 

. 

. 

. 

. 

. 

. 

. 

. 

. 

13 

January 

fxl 

51 

14 

January 

fml 

52 

15 

February 

foF2 

00 

16 

February 

M(3000)F2 

03 

. 

. 

. 

. 

. 

. 

167 

December 

fxl 

51 

168 

December 

fml 

52 

Table  B.4a  Parameter  Codes 


Description 

Parameter  Codes  and  Meaning 

F2  layer 

OO.foF2 

01-6cF2 

02-fzF2 

03-M(3000)F2 

04-h'F2 

05-hpF2 

FI  layer 

10-foFl 

11-fxFl 

13-M(3000)F1 

14-hTl 

16-hT 

E  layer 

20-foE 

22-foE2 

24-h'E 

26-h'E2 

Es  layer 

30-foEs 

31-fxEs 

32-fbEs 

33-£Es 

34-h’Es 

Other 

40-foF1.5 

42-fmin 

43-m(3000)F1.5 

44-hT1.5 

Spread 

50-foI 

51-fxI 

52-fmI 

TEC 

70-1(2000) 

71-1 

72-I(xxx) 

Table  B.4b  Qualifying  Letters 


Letter 

Meaning 

A 

Less  than  (used  only  in  case  of  total  blanketing) 

D 

Greater  than 

E 

Less  than 

I 

Interpolated 

J 

Deduced  from  x  component 

M 

Mode  uncertain 

0 

Deduced  from  o  component 

T 

Smoothed  from  sequence 

U 

Uncertain 

Z 

Deduced  from  z  component 
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Table  B.4c  Descriptive  Letters 


Letter 

Meaning 

A 

Blanketing 

B 

Absorption 

C 

Non-ionospheric  (equipment) 

D 

Above  upper  freq.  range 

E 

Below  lower  freq.  range 

F 

Spread  echoes 

G 

Ionization  density  too  small 

H 

Stratification 

K 

Night  E  layer  present 

L 

Insufficiently  defmed  cusp 

M 

Mode  uncertain 

N 

Superimposed  layers 

0 

Measurement  refers  to  o  component 

Q 

Range  spread 

R 

Attenuation  near  critical  freq. 

S 

interference 

T 

Interpolated 

V 

Forked  trace 

W 

Above  height  range 

X 

Measurement  refers  to  x  component 

Y 

Lacuna  (tilt) 

Z 

Measurement  refers  to  z  component 

B.3  OUTPUT  FILE  DESCRIPTION 

The  lONOLINK  computer  program  can  generate  two  different  output  file  formats  depending  on  the 
value  of  input  file  record  number  six  (6).  If  false,  the  lONOLINK  output  filename  has  the  same 
filename  as  the  input  file  but  with  the  extension  ".OUT"  instead  of  ".INP".  It  contains  a  tabular 
normalized  number  density  (probability  density  function)  for  the  dominant  propagation  mode  (currently, 
1F2,  IFl,  IE,  2E,  lEs,  and  2Es),  standard  MUF  values,  antenna  elevation  angles,  and  virtual  reflection 
heights  determined  for  each  user-specified  link  range.  These  densities  are  determined  for  the  user 
specified  time  interval.  The  format  for  these  density  tables  is  depicted  in  Tables  B.Sa,  b,  and  c.  A 
sample  ou^ut  file  called  ION1970L.OUT  is  provided  with  the  software  package. 

The  second  output  file  format  was  developed  to  provide  a  direct  output  for  comparison  with 
lONCAP,  ASAPS,  or  other  HF  prediction  code  output.  This  ou^ut  file  provides  the  optimum  working 
frequency  (OWF  or  FOT,  10%  not  exceeded),  the  median  standard  MUF  value  (50%  not  exceeded),  and 
the  lower  decile  standard  MUF  value  (90%  not  exceeded)  versus  hour  of  day  and  link  range.  In 
addition,  the  corresponding  average  antenna  take-off  angle  for  each  standard  MUF-distribution  value  is 
also  provided.  This  output  file  has  the  extension  ".LNK"  and  cannot  be  created  simultaneously  with  the 
corresponding  ".OUT"  file.  Parameter  six  (6)  in  the  input  file  determines  the  form  of  lONOLINK 
output.  The  format  of  this  file  is  outlined  in  Table  6  and  a  sample  "*.LNK"  file  is  provided  with  the 
software. 
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Table  B.5a  Propagation  Mode  Density  Table 


Hour  Intervals  (UT) 

Propagation 

Mode 

0-1 

1-2 

2-3 

23-24 

NET 

1F2 

/win* 

nm 

nm 

nm 

nm 

nm 

nm 

nm 

IFl 

nrm 

nm 

nm 

nm 

nm 

nm 

nm 

nm 

IE 

ntm 

nm 

nm 

nm 

nm 

nm 

nm 

nm 

2E 

nm 

mn 

mn 

nm 

nm 

nm 

nm 

nm 

lEs 

nm 

nm 

nm 

nm 

nm 

nm 

nm 

nm 

2Es 

nm 

nnn 

nnn 

nm 

nm 

nm 

nm 

nm 

*nnn  is  a  probability  (0  ^  nm  ^  1) 


Table  B.5b  Standard-MUF  Density  Table 


Hour  Intervals  (UT) 

Frequency  (MHz) 

0-1 

1-2 

2-3 

. 

, 

. 

23-24 

NET 

fxfi 

nnn 

mn 

nm 

nm 

nnn 

nm 

nm 

nm 

fif-i 

nm 

nm 

nm 

nnn 

nm 

nm 

nm 

mn 

h-u 

mn 

nm 

nnn 

nm 

nm 

nm 

nm 

nm 

♦ 

nm 

nm 

nm 

nnn 

mn 

mn 

mn 

nm 

. 

nm 

nnn 

nm 

mn 

nm 

nm 

nm 

nm 

nm 

mn 

nm 

nm 

mn 

nm 

nm 

mn 

/n-i'/n 

nm 

nm 

mn 

mn 

nm 

nm 

nnn 

nnn 

*fj  -  fi+i  implies  that  the  standard  MUF  value  /is  within  the  interval /.j  </^/  with  the 
indicated  probability. 


Table  B.5c  Height-  and  Angle-Value  Density  Table 


Hour  Intervals  (UT) 

Angle  (degrees). 
Height  (km) 

0-1 

1-2 

2-3 

23-24 

NET 

Vo’ 

mn 

nm 

nm 

nm 

nm 

nm 

mn 

nm 

vi 

nm 

mn 

nm 

mn 

nnn 

nm 

nnn 

nm 

V2 

nnn 

nnn 

nnn 

nnn 

nm 

mn 

nnn 

nnn 

. 

mn 

nm 

nm 

mn 

nm 

nm 

mn 

nnn 

. 

nm 

mn 

nm 

nm 

nnn 

nm 

nm 

mn 

. 

nm 

nnn 

mn 

nnn 

nm 

nm 

mn 

nm 

> 

nnn 

nnn 

nm 

nm 

mn 

nm 

mn 

nm 

*Vo  is  the  zeroth  value  such  that  height/angle  values  v  <  vq,  vj  is  the  1st  value  such  that 
vq  <  V  ^  vj,  V2  is  the  2st  value  such  that  Vj  <  v  ^  V2,  and  so  on,  until  v/y  is  the  Mh  value 
(N  height/angle  bins)  such  that  Vjy.j  <  v  ^  vjq,  and  finally,  ">"  corresponds  to  the  V+lst 
value  (N  height/angle  bins)  such  Aat  v  >  v^. 
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Table  B.6  FOT,  MUF,  HPF  Table  in  "*.LNK"  Output  File 


Hour  Intervals  (UT) 

Range  r  (km) 

0-1 

1-2 

2-3 

23-24 

'■i 

mim 

iff 

iff 

iff 

Jff 

iff 

Jff 

ooa'*' 

aaa 

WSSM 

aaa 

aaa 

oaa 

aaa 

CUUI 

r\ 

m 

iff 

iff 

m 

iff 

iff 

iff 

Jff 

ESSifl 

aaa 

OQQ 

CUKl 

aaa 

OUQ 

aaa 

ri 

fff 

iff 

iff 

M 

jff 

Jff 

Jff 

iff 

m 

iff 

iff 

iff 

m 

Jff 

Jff 

ff 

aaa 

aaa 

aaa 

aaa 

m 

ff 

iff 

iff 

ff 

Jff 

Jff 

wmm 

aaa 

aaa 

aaa 

MSSM 

aaa 

aaa 

aaa 

iff 

iff 

iff 

iff 

iff 

iff 

iff 

iff 

i^^mi 

aaa 

aaa 

aaa 

aaa 

aaa 

aaa 

aaa 

'’N 

iff 

iff 

iff 

iff 

iff 

iff 

iff 

Jff 

aaa 

aaa 

aaa 

aaa 

aaa 

aaa 

-  frequency  in  MHz  +aaa  -  angle  in  degrees 
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B.3  lONOLlNK  PROGRAM  LISTING 


B.3.1  IONOLINK.FOR  Source  Program 

SFREEFORM 

SLARGE 

INTERFACE  TO  SUBROUTINE  HFLINKS(  il,  i2, 11, 12, 13  ) 

INTEGERM  il,  i2 
LOGICAL*!  11(10),  12. 13 
END 

INTERFACE  TO  SUBROUTINE  PARMBIN(  il.  i2,  i3,  rl,  cl,  c2  ) 

REAL*4  rl 
INTEGER*4  il,  i2,  i3 
CHARACTER*!  cl,  c2 
END 

"  Program  HFSONDE 

II 

"  Purpose:  Process  an  lONOSONDE  data  file  following  the  conventions 

"  established  in  UAG-23  and  UAG-23A  and  determine  the  optimum 

"  frequencies  for  an  HF  communications  link  with  its  midpath 

"  above  the  ionosonde.  The  allowable  modes  included  in  this 

"  version  of  the  software  are  1F2,  IFl,  IE,  lEs,  2E,  &  2Es. 

”  Additional  modes  will  be  added  at  a  ftiuire  date. 

PROGRAM  HFSONDE 

"  Declare  variable  types  and  dimension  arrays 

"  Define  a  general  input  record  with  120  columns  and  a  holder  for  the 
"  previous  record 

CHARACTER*  120  RECORD_I,  RECORD 

"  Defme  parameters  to  hold  values  describing  the  ionosonde  station 

CHARACTER*20  STATION_name,  STATION_check 
CHARACTER*5  STATION_code 
CHARACTER*4  TIME_meridian,  STATION_COLAT_ddg 
CHARACTER*4  STATION_ELNG_ddg,  YEAR 
CHARACTER*2  MONTH,  OLD_MONTH 
CHARACTER*6  f_RANGE(12) 

INTEGER*4  P_code(2),  N_file,  M_l,  M_2,  Y_l,  Y_2,  Y_3,  Y_4 
INTEGER*4  YEAR_i,  MONTHJ,  DAY_i,  HOURJ 
INTEGER*4  YEAR_f,  MONTHJ,  DAY J  HOURJ 


Define  S-character  code  derived  from  UAG-23  for  hourly  interval 

CHARACTER*!  P_char(3),  Q_char,  D_char 

Defme  bins  for  yearly  distribution  of  hourly  values 

REAL*4  d_P,  P_l,  P_2,  P_3,  P_value,  MAX_hours(l:30,l;24) 

REAL*4  PJow(l:30),  P_hgh(l:30),  P_scale(l;3) 

REAL*4  fMHzJow,  fMHz_hgh,  adg_low,  adg_hgh,  hkm_low,  hkm_hgh 

INTEGER*4  i_FILE,  i_CODE,  P_index(l:73).  N_DISP 
INTEGER*4  N_Pbins(l;30).  i_MONTH,  PARM_code,  P_type(l:30) 

Declare  arrays  for  HF  link  calculations 

REAL*4  fMHz_km_hr_bin,  adg_km_hrjbin,  hkm_km_hr_bin 
REAL*4  f_limit,  f_hr_bin,  fjbin 

REAL  *4  N_km_hr_F2,  N_km_hr_Fl,  N_km_hr_lE,  N_km_hr_lEs,  N_km_hr_2E 
REAL*4  N_km_hr_2Es,  fMHz_km_bin,  adg_kmjbin,  hkm_km_bin 
REAL*4  N_km_F2,  N_km_Fl,  N_km_lE,  N_km_lEs,  N_km_2E,  N_km_2Es 
REAL*4  ANG_km_hr_frq,  m_MUF,  b_MUF7DUM_l,  DUM_2,  N_km_hr,  N_km 
REAL*4  N_km_hr_cutE,  N_km_hr_cutEs,  N_km_cutE,  N  kin_cutEs 
REAL*4  d_f,  d_a,  d_h 

INTEGER*4  i_DAY,  i_HOUR,  i_DST 

INTEGER*4  N_DST,  N_FRQ,  N_bins,  N_HGT,  N_ANG,  month_OLD 

CHARACTER*5  L_heading(3) 

CHARACTER*25  DIST_heading 

Defme  storage  for  each  parameter  code,  descriptive,  and  qualifying 
letter. 

REAL*4  foF2,  fxF2,  f2F2,  M3000F2,  hF2,  hpf2,  foFl,  fxFl,- 
M3000F1,  hFl,  hF,  foE,  foE2,  hE,  hE2,  foEs,- 
fitEs,  fbEs,  fEs,  hEs,  foFldS,  fmin,  M3000Fld5,  hfldS,- 
fol,  fxl,  fml,  12000,  n,  Lcxx 

Defme  unused  logical  parameter  employed  in  the  lONSTATS  program 
LOGICAL*!  DIV_flag 

Define  a  character  string  of  BLANK_line  for  null  string  searches 


CHARACTER*21  BLANK  line 


Define  list  of  input  files  for  analysis 


CHARACTER*20  ION_files(l  :25).  INP_fUe,  OUT_file,  file_INP 
CHARACTER*20  LNK_file 

Define  heading  variables  for  output 

CHARACTER*  10  P_names(l  :30) 

CHARACTER*5  QUAL_heading,  DESC_heading 
CHARACTER*5  P_heading(l:3),  DIM_heading(l:4) 

CHARACTER*25  HOUR_heading 
CHARACTER*!  QUAL_value(l:10).  DESC_value(l;23) 

LOGICAL*!  YEAR_mask(!;25),  MONTH_mask(!:!2),  DAY_inask(!:3!) 
LOGICAL*!  HOUR_inask(!;24).  CODE_mask(!:30) 

LOGICAL*!  P_f!ag.  LINK_flag(!0).  L_flag,  P!0_FLAG,  P50_FLAG,  P90_FLAG 
LOGICAL*!  Read_f!ag,  Run_£lag,  Rept_flag,  DAY_flag,  HOUR_flag 
LOGICAL*!  MONTHLY_flag.  Es_layer_flag,  FIRST_f!ag 

Define  COMMON  blocks 

COMMON/IONSNP/foF2(3!,24),  M3000F2(3!,24),  hF2(31,24),  foFl(31,24),- 
M3000F!(3!,24),  hF!(3!,24),  hF(3!,24),  foE(3!,24).- 
hE(3!,24),  foEs(3!,24),  fbEs(3!,24),  flEs(3!,24),. 
hEs(3!,24),  fmin(3!,24),  fxl(3!,24) 

COMMON  /LIMIT/  fMHzJow,  fMHz_hgh,  adg_low,  adg_hgh,  hkmjow,  hkm_hgh,- 
N_FRQ,  N_ANG,  N_HGT,  LNK_file,  d_f,  d_a,  d_h,  - 
D_km(!:!0),  N_DST,  N_DISP 

COMMON /FRQBN/fMHz_km_hr_bin(!:!0,!:24,0:6!),  fMHz_km_bin(!:  10,0:6!).  - 
fjimit(!!2,!:2),  f_hr_bin(!:!  0,1:24,!:  12),  - 
f_bin(!:!0,!:!2) 

COMMON /ANGBN/adg_km_hr_bin(!:!0,!:24,0:6!),  adg_km_bin(!:  10,0:61),  - 
ANG_km_hr_frq(! :  10, !  :24,0:6!,!:2) 

COMMON  /HGTBN/  hkm_km_hr_bin(!:!0,!:24,0:6!),  hkm_km_bin(!:  10,0:6!) 

COMMON  /COUNT/N_km_hr_F2(!:!0,!:24),  N_km_hr_F!  (1:10, 1:24),  - 
N_km_hr_!E(! :  10, !  :24),  N_km_hr_!Es(! :  10, !  :24),  - 
N_km_hr_2E(! :  10, !  :24),  N_km_hr_2Es(! :  10, !  :24),  - 
N_km_F2(! :  10),  N_kmJF!(! :  10),  N_km_!E(! :  10),  - 
N_km_!Es(! :  10),  N_km_2E(! :  10),  N_kin_2Es(! :  10),  - 
N_km_hr_cutE(!:! 0,1:24),  N_km_cutE(!:!0),  - 


N_kin_hr_cutEs(l:10,l:24),  N_km_cutEs(l:10),  - 
N_km_hr(l:  10,1:24),  N_km(l:10) 


Initialize  constants 


DATA  P_index/l,2,3,4,5,6,4*0,7,8,0,9,10,0,l  1,3*0,- 

12,0,13,0,14,0,15,3*0,16,17,18,19,20,5*0,- 

21,0,22,23,24,5*0,25,26,27,17*0,28,29,30/ 

DATAP_type/3*l,3,2*2,2*l,3,2,2,l,l,2,2,4*l,2,- 

1,1,3,2,3*1,3*1/ 

DATA  P_scale/10.0,1.0,100.0/ 

DATA  BLANKJine/'  '/ 

DATAP_names/'foF2','fxF2','fzF2','M(3000)F2'.'h"F2','fpF2*, 
•foF  1  ','fxF  1  ',Tcl(3000)F  1  ','h"F  1  ■,'h"F,'foE','foE2’,'h"E','h'‘E2',- 
•foEs','ficEs','fbEs','fEs',VEs','foF1.5','fmin','M(3000)F1.5',- 
'h''n.5',’for,'fxI’,'fmI','I(2000)',T,'I(xxx)7 

DATA  P_heading/'  FRQ  HGT 7 
DATA  DIM_heading/'(MHz)','  (km)','FACTR’.'(deg)7 
DATA  HOUR_headin^  Universal  Time  in  Hours  7 
DATA  QUAL^heading/’  QUAL7 
DATA  DESCleading/*  DESC7 
DATA  DIST_heading/'Path  Length  in  Kilometers7 
DATA  L_heading/'  FRQ ANG HGT  7 
DATAf_limit/2.0,  6.0,  10.0,  14.0,  18.0,  - 

22.0,  26.0,  30.0,  40.0,  60.0,  100.0,  150.0,  - 
6.0,  10.0,  14.0, 18.0, 22.0, 26.0,  30.0,  - 
40.0,  60.0,  100.0,  150.0,  300.0/ 


DATAN_DISP/12/ 

DATA  f_RANGE  /*  2-6 ', '  6-10 ', '  10-14',  ’  14-18', '  18-22', 
'  22-26', '  26-30', '  30-40', '  40-60',  '60-100',  - 
'to  150',  'to  3007 


"  Open  input  file 


WRrrE(6,*)  'Type  name  of  input  file  with  extension  ".IMP"' 
READ(6,700)  file_INP 
700  FORMAT(a20) 


”  Concatenate  input  and  output  file  names 

INP_file  =  file_INP(l:LEN_TRIM(file_INP)y/'.W 
OUT_file  =  fUe_INP(l:LEN_TRIM(file_INP)y/’.OUT 
LNK_file  =  fUe_INP(l  :LEN_TRIM(file_INP)y/'.LNK* 

"  Read  input  file 

OPEN(UNn’=2,STATUS=‘OLD'.FILE=INP_file) 

READ(2,700)  STATION_check 
READ(2,*)  HOURJ,  DAY_i,  MONTHJ,  YEARJ 
READ(2,*)  HOURJ.  DAY_f,  MONTHJ,  YEARJ 
READ(2,*)  (  YEAR_maskO),  j  =  1,  25  ) 

READ(2,*)  (  MONTH_mask(j).  j  =  1,  12  ) 

READ(2,*)  MONTHLYJag 
READ(2,*)  (  DAY_maskO),  j  =  1,  31  ) 

READ(2,*)  (  HOUR_maskG).  j  =  1,  24  ) 

READ(2,*)  N_DST,  (  D_km(j),  j  =  1,  NJ)ST  ) 

READ(2,*)  fMHzJow,  £MHz_hgh,  N JRQ,  Esjayerjlag 
READ(2,*)  hkmjow,  hkmjgh,  N_HGT 
READ(2,*)  adgjow,  adgjigh,  N_ANG 
DO  i  =  1,  30 

READ(2,*)  j,  CODE_maskO),  PJow(i),  PJighG),  NJbinsG) 
END  DO 

READ(2,*)  DIVJag 

“  Read  names  of  standard  ionosonde  files.  If  an  error  occurs  or  if 
"  if  no  input  filenames  are  present,  output  the  appropriate  message 
"  and  stop  execution 

i_FILE=l 

100  READ(2,700,ERR=998,END=999)  IONJiles(i JILE) 

"  Determine  the  number  of  ionosonde  input  files 
DO  WHILE  ( i_FILE  .GT.  0  ) 
i_FILE  =  i_FILE+  1 

READ(2,700,END=102)  ION Jiles(i_FILE) 

END  DO 

102  N Jile  =  i_FILE  -  1 
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d_f  =  ( £MH2_hgh  -  fMHzJow )  /  FLOAT(  N_FRQ  ) 
d_a  =  ( adOgh  -  adgjow  )  /  FLOAT(  N_ANG  ) 
d_h  =  (  hkm_hgh  -  hkmjow  )  /  FLOAT(  N_HGT  ) 

INITIALIZE  all  bin  values  to  zero 


ANG_km_hr_frq  =  0.0 
fMHz_km_lir_bin  =  0.0 
hkm_km_hrjbin  =  0.0 
adg_km_hrj)in  =  0.0 
fMHz_lan_bin  =  0.0 
f_hr_bin  =  0.0 
f_bin  =  0.0 
hkm_km_bin  =  0.0 
adg_km_bin  =  0.0 

N_km_hr_F2  =  0.0 
N_km_hr_Fl  =  0.0 
N_km_hr_lE  =  0.0 
N_km_hr_lEs  =  0.0 
N_km_hr_2E  =  0.0 
N_km_hr_2Es  =  0.0 
N_km_F2  =  0.0 
N_km_Fl  =0.0 
N_km_lE  =  0.0 
N_km_lEs  =  0.0 
N_km_2E  =  0.0 
N_km_2Es  =  0.0 
N_km_hr  =  0.0 
N_km  =  0.0 

N_months  =  0 
N_code  =  0 

Initialize  all  ionosonde  parameter  storage  locations  to  -1 .0.  Note  that 
the  commented  parameters  are  not  yet  used  in  the  calculation  of  forward 
propagating  signals. 

foF2  =  -1.0 
fxF2  =  -1.0 
fzF2  =  -1.0 
M3000F2  =-1.0 
hF2  =-1.0 
hpf2  =  -1.0 
foFl  =-1.0 
fxFl  =-1.0 
M3000F1  =-1.0 


hFl  »-1.0 
hF  =  -1.0 
foE  =  -1.0 
"  foE2  =  -1.0 
hE  =  -1.0 
"  hE2  =  -1.0 
foEs  =  -1.0 
"  fxEs  =  -1.0 

"  fbEs  =  -1.0 

”  fEs  =  -1.0 

hEs  =  -1.0 
"  foFld5  =  -1.0 
fmin®  -1.0 

"  M3000Fld5  =  -1.0 

'•  hfld5»-1.0 

’•  fol  =  -1.0 

'•  fxl  =  -1.0 

"  fml  =  -1.0 
"  12000  =  -1.0 
'•  Ixxx  =  -1.0 

M  ^t**:^1Hti^**^*nf;tit***************************************************** 

"  START  of  FILE  loop 

i_FILE  =  0 
Run_flag  =  .TRUE. 

DO  WHILE  ( i_FILE  .LT.  N_FILE  .AND.  Run_flag  ) 

FIRST_flag  =  .TRUE. 
i_FILE  =  i_FILE  +  1 

"  Open  input  files  for  ionosonde  data,  sunspot  numbers,  auroral  electrojet 
"  indices,  and  vertical  absorption 

OPEN(UNIT=4,STATUS='OLD',FILE=ION_files(i_FILE)) 

IF  (  MONTHLY_flag  )  THEN 

OPEN(UNIT=5,STATUS='UNKNOWN',ACCESS=’ APPEND', FILE=LNK_file) 
WRITE(5,701)LNK_file,  STATION_check 
701  FORMAT(lx, 'Input  filename:  ',a30,'  Link  midpoint  at  ',a20  - 
/10x,'(All  frequencies  in  MHz  &  ranges  in  km)') 

END  IF 

"  Start  of  parameter  loop 

Read_flag  =  .TRUE. 

DO  WHILE  (  Read_flag  .AND.  Run_flag  ) 
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"  Read  the  n»ct  line  of  the  current  input  file  and  check  the  first 
"  21  characters  to  make  sure  they  are  nonblank.  If  they  are  blank, 
"  then  a  new  record  should  be  read. 


RECORDJ(l:21)  =  BLANK  line 
DO  WHILE(  RECORD_I(l  :2l)  .EQ.  BLANKJine  ) 
READ(4,702,END=200)  RECORDJ 
END  DO 

702  FORMAT(al20) 

"  Extract  station  name,  code,  standard  time  meridian,  geographic  co-latitude, 
"  east  longitude,  year,  month,  and  the  parameter  code 

STATION_name  =  RECORD_I(l  ;20) 

IF  (  STATION_name  NE.  STATION_check  )  THEN 
WRJTE(6,*)  'Station  name  does  not  match  input  name!' 

CYCLE 
END  IF 

STATION_code  =  RECORD_I(21 :26) 

TIME_meridian  =  RECORD_I(26;29) 

STATION_COLAT_ddg  =  RECORD_I(30;33) 
STATION_ELNG_ddg  =  RECORD  1(34.37) 

YEAR  =  RECORD_I(38:41) 

Y_1  =  ICHAR(  RECORDJ(38:38)  )  -  48 
Y_2  =  ICHAR(  RECORD_I(39:39)  )  -  48 
Y_3  =  ICHAR(  RECORD_I(40:40)  )  -  48 
Y_4  =  ICHAR(  RECORD_I(41 .41)  )  -  48 
i_YEAR  =  1000  *  Y_1  +  100  *  Y_2  +  10  *  Y_3  +  Y_4 
IF  ( i_YEAR  LT.  YEARJ  OR.  i_YEAR  .GT.  YEAR_f  OR- 
.NOT.  YEAR_mask(i_FILE)  )  THEN 
Read_flag  =  . FALSE. 

CYCLE 
END  IF 

MONTH  =  RECORDJ(42:43) 

M_1  =  ICHAR(  RECORDJ(42;42)  )  -  48 
M_2  =  ICHAR(  RECORD_I(43:43)  )  -  48 
i_MONTH  =  10  *  M_1  +  M_2 
IF  (  FIRST_flag  )  j_MONTH  =  i_MONTH 


IF  ( i_YEAR  .EQ.  YEARJ  .AND.  i_MONTH  .GT.  MONTHJ  )  THEN 
Read_flag  =  . FALSE. 

CYCLE 
END  IF 


IF  (  NOT.  MONTH_mask(  i_MONTH  )  OR.  - 

( i_YEAR  .EQ.  YEAR_i  AND  i_MONTH  .LT.  MONTHJ  )  )  THEN 
DO  i=  1,31 

READ(4,702,END=200)  RECORDJ 
END  DO 
CYCLE 
END  IF 

P_code(l)  =  ICHAR(  RECORD_I(44;44)  )  -  48 
P_code(2)  =  ICHAR(  RECORD_I(45:45)  )  -  48 
PARM_code  =  10  *  P_code(l)  +  P_code(2) 
i_CODE  =  P_index(  PARM_code  +  1  ) 

IF  (  FIRST_nag  .AND.  i_CODE  .GT.  N_code  )  THEN 

N_code  =  i_CODE 

ELSE  IF  (  (  FIRST_flag  AND.  i_CODE  LE.  N_code  )  - 
.OR  (  NOT.  FIRST_flag  .AND.  - 

i_MONTH  .NE.  month_OLD  )  )  THEN 

DOi_DAY=l,31 
DOi_HOUR=  1,24 

CALL  HFLINKS(  i_DAY,  i_HOUR,  LINK_flag,  - 
Es  layer_flag,  MONTHLY_flag ) 

END  do" 

END  DO 

if  (  month_OLD  .EQ.  0  )  month_OLD  =  i_MONTH  - 1 
IF  (  MONTHLY_flag  )  THEN 

CALL  NRMLYZE(  i_YEAR,  month_OLD,  MONTHLY_flag  ) 
END  IF 

N_months  =  N_months  +  1 
month_OLD  =  i_MONTH 
FIRST_flag=. FALSE. 

OLD_MONTH  =  MONTH 

WRITE(6,*)  YEAR, '  OLD_MONTH, ' ',  N_months,  - 
• ',  INP_file,  ION_fiIes(  i_FILE  ) 


END  IF 

IF  (  .NOT.  CODE_mask(  i_CODE  )  )  THEN 
DO  i=  1,31 

READ(4,702,END=200)  RECORDJ 


END  DO 
CYCLE 
END  IF 

WRITE(6,*)  'MONTH:  i_MONTH, '  CODE;  RECORD_I(44:45) 

Determine  the  upper  and  lower  bin  limits  of  the  parameter  for  either 
frequency  (i_DIM  =  1)  or  height  (i_DIM  =  2) 

i_DIM  =  P_type(  i_CODE  ) 

N_bins  =  N_Pbins(  i_DIM ) 

Compute  parameter  increment  value 

d_P  =  (  P_hgh(i_CODE)  -  P_low(i_CODE)  )  - 
/  FLOAT(  N_Pbins(i_CODE) ) 

START  loop  for  each  day  of  the  current  month 

i_DAY  =  0 
DAY_flag  =  .TRUE. 

DO  WHILE  ( i_DAY  .LT.  3 1  .AND.  DAY_flag  ) 
i_DAY  =  i_DAY+l 

Read  next  input  record  and  divide  into  24  5-character  strings 
Check  the  first  20  characters  to  make  sure  they  are  nonblank.  If  they 
are  blank,  then  a  new  record  should  be  read. 

READ(4,702,END=997)  RECORDJ 

Check  to  see  if  current  day  is  within  interval  to  be  processed. 


IF  (  ( i_YEAR  .EQ.  YE/,R_i  AND.  i_MONTH  EQ.  MONTH_i  - 
AND.  i_DAY  .LT.  DAY_i )  OR  - 
.NOT.  DAY_mask(i_DAY)  )  CYCLE 

IF  ( i_YEAR  .EQ.  YEAR_f  .AND.  i_MONTH  .EQ.  MONTH_f - 
.AND.  i_DAY  .GT.  DAY_f )  THEN 
DAY_flag=. FALSE. 

Readflag  =  .FALSE. 

CYCLE 
END  IF 


START  loop  for  each  hour  of  the  current  day. 


HOUR_flag  =  TRUE. 
i_HOUR  =  0 

DO  WHILE  ( i_HOUR  LT.  24  .AND.  HOUR_flag  ) 
i_HOUR  =  i_HOUR+l 
P_value  =  0.0 

Check  to  see  if  current  hour  is  within  interval  to  be  processed 

IF  ( ( i_YEAR  .EQ.  YEARJ  AND.  i_MONTH  EQ.  MONTHJ  - 
ANjO.  i_DAY  EQ.  DAY_i  AND.  i_HOUR  LT.  HOURJ  )  - 
OR.  NOT.  HOUR_mask(i_HOUR)  )  CYCLE 

IF  ( i_YEAR  EQ.  YEARJ  .AND.  iJvlONTH  .EQ.  MONTHJ - 
AND.  i_DAY  EQ.  DAYJ  AND.  i_HOUR  .GT.  HOURJ)  THEN 
HOURJag  =  .FALSE. 

DAYJag  =  .FALSE. 

Reptjag  =  .FALSE. 

CYCLE 
END  IF 

k_CHAR=  5  •  ( i_HOUR- 1 )  +  1 

IF  (  RECORD  J(k_CHAR.k_CHAR+4)  .EQ. '  ’ )  CYCLE 

Read  scaled  parameter  for  the  current  hour  at  the  ionosonde 

P_char(l)  =  RECORD  J(k_CHAR:k_CHAR) 

P_char(2)  =  RECORDJ(k_CHAR+l:k_CHAR+l) 

P__char(3)  =  RECORD J(k_CHAR+2.k_CHAR+2) 

Q_char  =  RECORD J(k_CHAR+3;k_CHAR+3) 

D_char  =  RECORD ji_CHAR+4;k_CHAR+4) 

IF  (  P_char(l)  .NE.  "  )  THEN 

P_1  =  REAL(  ICHAR(  P_char(l)  )  -  48  ) 

P_2  =  REAL(  ICHAR(  P_char(2)  )  -  48  ) 

P_3  =  REAL(  ICHAR(  P_char(3)  )  -  48  ) 

P_flag  =  .TRUE. 


ELSE  IF  (  P_char(2)  .NE.  ”  )  THEN 
P_1  =  0.0 

P  2  =  REAL(  ICHAR(  P_char(2)  )  -  48  ) 
P  J  =  REAL(  ICHAR(  P_char(3)  )  -  48  ) 
P  Jag  =  .TRUE. 


ELSE  IF  (  P_char(3)  .NE. '  • )  THEN 


P_1  =  0,0 
P_2  =  0.0 

P_3  =  REAL(  ICHAR(  P_char(3)  )  -  48  ) 
P_flag  =  TRUE. 


ELSE 

P_value  =  0.0 

P_flag  =  .FALSE. 

END  IF 

IF  (  P_flag  )  THEN 

P_value  =  (  100.0*P_1  +  10.0*P_2  +  P_3  )- 
/  P_scale(i_DIM) 


END  IF 

IF  (  P_flag  )  THEN 

CALL  PARMBIN(  i_DAY,  i_HOUR,  i_CODE,  P_value,  - 
Q_char,  D_char  ) 

END  IF 

"  End  of  hourly  loop  for  current  day,  parameter,  month,  and  year  (file) 

END  DO 

"  End  of  daily  loop  for  current  parameter,  month,  and  year  (file). 

END  DO 

"  End  of  current  parameter  &  month  loop  for  year  (file). 

END  DO 

"  All  input  records  in  the  current  input  file  have  been  read.  Proceed 
"  to  next  input  file 

200  CLOSE(UNIT=4) 

"  Input  results  from  next  year  (or  file) 


END  DO 


”  Compute  HF  links  for  last  month 

DOi_DAY=  1,31 
DOi_HOUR=l,24 

CALL  HFLINKS(  LDAY,  i_HOUR,  LINK_flag,  Es  layer_flag,  - 
MONTHLY_nag) 

END  DO 
END  DO 

N_months  =  N_months  +  1 
IF  (  MONTHLY_flag  )  THEN 

CALL  NRMLYZE(  i_YEAR,  month_OLD,  MONTHLY_flag  ) 

END  IF 

month_OLD  =  i_MONTH 
FIRST_flag  =  . FALSE. 

WRITE(6,*)  YEAR, ' MONTH, ' N  months.  - 
' INP_file,  ION_files(  i_Fn.E  ) 

“  Output  the  probability  distributions  for  each  parameter  code,  both 
"  for  each  hour  and  over  all  hours  in  a  column  format 

IF  (  .NOT.  MONTHLY_flag  )  THEN 

”  AH  input  files  have  been  read.  Normalize  each  distribution  count 
"  by  the  numbers  of  samples  for  each  paramater  code. 

CALL  NRMLYZE(  i_YEAR,  i_MONTH,  MONTHLY_flag  ) 

OPEN(UNIT=3,STATUS='UNKNOWN’.ACCESS=’APPEND',FILE=OUT_file) 

\VRITE(3,704)  STATION_name 

704  FORMAT(/25x,TONOSONDE  PARAMETER  STATISTICS  AT  ’,  a20) 

WRITE(3,705)  HOURJ,  DAY_i,  MONTH J,  YEARJ,  HOURJ,  DAY_f,- 
MONTH_f,  YEARJ 

705  FORMAT(/10x,'IONOSONDE  measurements  processed  for  the  period: 

3(i2,'.  to  ’,3(i2,', 

"  Output  HF  link  propagation  characteristics. 

WRITE(3,730) 

730  FORMATC 1 V/1 0x,'HF  LINK  PROPAGATION  VERSUS  HOUR  &  PATH  LENGTH) 
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"  CXitput  hourly  results  for  each  range 
DOi_DST=  l.N_DST 

WRITE(3,734)  D  km(i_DST),  'LAYER',  ( i,  i  =  1,  24  ) 

734  FORMAT(//5x, 'PERCENTAGE  OF  HOURS  VS  REFLECTING  LAYER  &  HOUR'  - 

//5x,'  Link  Range:  ',  f7.1,- 
//Ix,  a5,  49x,  'Hour  of  the  day'  - 
/7x.24(  lx,i3.  lx). 'NET') 

WRITE(3,736) '  F2 ',  (N_km  hr_F2(i_DST,i_HOUR),i_HOUR=l,24),- 
N_km_F2(i_DST) 

WRITE(3,736) '  FI  ',  (N_km_hr_Fl(i_DST,i_HOUR),i_HOUR=l,24),- 
N_km_Fl(i_DST) 

WRITE(3,736) '  IE ',  (N_km_hr_lE(i_DST.i_HOUR),i_HOUR=l,24),. 

N_km_lE(i_DST) 

WRITE(3,736) '  2E ',  (N_km_hr_2E(i_DST,i_HOUR),i_HOUR=l,24).- 
N_km  2E(i_DST) 

WRITE(3,736V  lEs ',  (N  km_hr_lEs(i_DST.i_HOUR),i_HOUR=l,24),- 
N_km_lEs(i_DSf) 

WRITE(3,736) '  2Es ',  (N_km_hr_2Es(i_DST,i_HOUR),i_HOUR=l,24),. 

N_km_2Es(i  DST) 

WRITE(3,736)  'cutE*^  (N_km_hr_cutE(i_DST,i_HOUR),i_HOUR=l,24),. 

N_km_cutE(i_DST) 

WRITE(3.736)  'cutEs',  (N_km_hr_cutEs(i_DST,i_HOUR),i_HOUR=l,24),- 
N_km_cutEs(i_DST) 

736  FORMAT(  lx,  a6,  25f5.3  ) 

WRITE(3,732) 

732  FORMAT(//10x, '**♦**  MAXIMUM  USABLE  FREQUENCY  ***♦*’) 

WRITE(3,738)  D_km(i_DST), '  FREQ ',  ( i,  i  =  0,  24  ) 

738  FORMAT(//5x,'  Link  Range:  '.H.l,- 
//Ix,  a6, 48x,'Hour  of  the  day  (UT)'  - 
/2x,  25(  i3,  2x  ), '  NET ' ) 

DO  i_DISP  =  1,  N_DISP 

WRITE(3,742)  f_RANGE(i_DISP),  - 

(  f_hr_bin(i_DST,i_HOUR,i_DISP),i_HOUR=l,24),  - 
f_bin(i_DST,i_DISP) 

742  FORMAT(  lx,  a6,  25f5.3  ) 

END  DO 

WRITE(3,746) 

746  FORMAT('l'//10x, '*****  RAY  ELEVATION  ANGLE  *****') 

WRITE(3,748)  D_km(i_DST),  'ANGLE ',  ( i,  i  =  1,  24  ) 
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748  F0RMAT(//5x, '  Link  Range:  '.n.l,- 
//Ix,  a6,  48x,  Hour  of  the  day'  - 
/7x,24(i3,2x),'NET') 

DOi_ANG  =  0,N_ANG 

a_dg  =  adg_low  +  i_ANG  *  d_a 

WRITE(3,752)  a_dg.  - 

(adg_km_hr_bin(i_DST.i_HOUR,i_ANG),i_HOUR=l ,24),  - 
adg_km_bin(i_DST,i_ANG) 

752  FORMAT(  lx,  f6.2,  25f5.3  ) 

END  DO 

WRITE(3,754)  (adg_km_hr_bin(i  DST,i_HOUR,N_ANG+l),i_HOUR=l,24),  - 
adg_km_bin(i_DST,N_ANG+l) 

754  FORMAT(  lx, '  >  '.  25f5.3  ) 

WRITE(3,756) 

756  FORMATClV/lOx,'*****  VIRTUAL  REFLECTION  HEIGHT  •****') 

WRITE(3,758)  D_km(i_DST),  HEIGHT,  ( i,  i  =  1,  24  ) 

758  FORMAT(//5x,  ■  Link  Range;  H.l,  - 
//lx,  a6, 48x,  Hour  of  the  day'  ~ 

/7x,24(i3,2x),'NET') 

DO  i_HGT  =  0,  N_HGT 

h_km  =  hkm_low  +  i_HGT  *  d_h 

WRITE(3,762)  h_km,  - 

(hkm_km_hr_bin(i_DST,i_HOUR,i_HGT),i_HOUR=l ,24),  - 
hkm_km_bin(i_DST,i_HGT) 

762  FORMAT(  lx,  f6. 1,  25f5.3  ) 

END  DO 

WRITE(3,764)  (hkm_km_hr_bin(i_DST,i_HOUR,N_HGT+l),i_HOUR=l,24),  - 
hkm_km_bin(i_DST,N_HGT+l) 

764  FORMAT(lx,'  >  ',  25f5.3  ) 

"  End  of  distance  loop 

END  DO 

END  IF 
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CL0SE(UNIT=2) 


IF  (  MONTHLY_flag  )  THEN 
CL0SE(UNIT=5) 

ELSE 

CL0SE(UNIT=3) 

END  IF 

STOP 

997  WRITE(6,*)  'Error  on  input,  probably  wrong  number  of  - 

characters  in  record* 

CLOSE(UNIT=2) 

CLOSE(UNIT=3) 

STOP 

998  WRnE(6,*)  'Error  on  input,  probably  no  access  to  input  file' 
CLOSE(lJNIT=2) 

CLOSE(UNIT=3) 

STOP 

999  WRITE(6,’'‘)  'No  ionosonde  input  files  were  listed' 
CLOSE(UNIT=2) 

CLOSE(UNIT=3) 

STOP 

END 


SUBROUTINE  NRMLYZE(  i_YEAR,  i_MONTH,  MONTHLY_flag  ) 


REAL*4  fMHz_km_hr_bin,  adg_km_lir_bin,  likm_km_hr_bin,  M_H 
REAL*4  N_km_hr_F2,  N_km_hr_Fl,  N_km_hr_lE,  N_km_hr_lEs,  N_km_hr_2E 
REAL*4  N_km_lir_2Es,  fMHz_km_bin,  adg_km_bin,  hkm_km_bin 
REAL*4  N_km_F2,  N_km_Fl,  N_km_lE,  N_km_lEs,  N_km_2E,  N_km_2Es 
REAL*4  m_MUF,  b_MUF,  DUM_1,  DUM_2,  N_km_hr,  N_km 
REAL*4  MUF_10(1 ;  10, 1 :24),  MUF_50(1 : 10,1  ;24),  MUF_90(1 : 10, 1  ;24) 

REALM  ANG_10(1:10,1:24),  ANG_50(1:1 0,1:24) 

REAL*4  N_km_Iir_cutE,  N_km_hr_cutEs,  N_km_cutE,  N_km_cutEs 
REALM  ANG_90(1:10,1:24),  ANG_km_hr_frq,  d_f,  d_a,  d_h 
REAL*4  f_limit,  f_hr_bin,  f_bin 

INTEGER*4  i_DAY,  i_HOUR,  i_DST,  i_YEAR,  i_MONTH,  N_DISP 
INTEGER*4  N_DST,  N_FRQ,  N_bins,  N_HGT,  N_ANG,  month_OLD 


LOGICAL*!  P10_FLAG,  P50_FLAG,  P90_FLAG,  MONTHLY_flag,  NONZERO_flag 

CHARACTER*20  LNK_file 

COMMONAONSNP/  foF2(31,24),  M3000F2(31,24),  hF2(31,24),  foF  1(3 1,24),- 
M3000F1(31,24),  hFl(31.24),  hF(31,24),  foE(31,24),- 
hE(31,24),  foEs(31.24).  fbEs(31,24),  fEs(31,24),- 
hEs(31,24),  fmm(31,24),  fxl(31,24) 

COMMON  /LIMIT/  fMHz_iow,  fMHz_hgh,  adg_low,  adg  hgh,  hkm  low,  hkm  hgh,- 
N_FRQ,  N_ANG,  N_HGT.  LNK_file.  d_f,  d_a,  d_h,  - 
D_km(l  :10),  N_DST,  N_DISP 

COMMON /FRQBN/fMH2_km_hr_bin(l:10,l;24,0:61),  fMHz_km_bin(l;  10,0:61),  - 
f_limit(l:12,l;2),  f_br_bin(l;  10,1:24, 1:12),  - 
f_bm(l:10,l:12) 

COMMON /ANGBN/  adg_km_br_bin(l:  10, 1:24,0:61),  adg_km_bm(l:  10,0:61),  - 
ANG_kin_br_frq(l :  1 0, 1 :24,0:6 1 , 1 :2) 

COMMON  /HGTBN/  bkm_km_br_bin(  1 : 1 0, 1  ;24,0:6 1 ),  bkm_km_bin(  1 : 1 0,0:6 1 ) 

COMMON  /COUNT/  N_km_br  F2(l :  10, 1 :24),  N_km_br_F!(l :  10, 1 :24),  - 
N_km_br  1E(1:10,1:24),  N  km_br_lEs(l:10,l:24),- 
N_km_br2E(l:10,l:24),  Nlkm_br_2Es(l:l 0,1:24),  - 
N_km_F2(l:10),  N_kmJFl(l:10),  N_km_lE(l:10),  - 
N_km_lEs(l:10),  N_km_2E(l:10),  N_km_2Es(l:10),  - 
N_km_br_cutE(l :  10, 1 :24),  N_km_cutE(l :  10),  - 
N_km_br_cutEs(l:l 0,1:24),  N_km_cutEs(l:10),  - 
N_kin_br(l:l  0,1:24),  N_km(l:10) 

DO  i_DST  =  1,  N_DST 

IF  (  N_km(i_DST)  .NE.  0.0  )  THEN 

N_km_F2(i_DST)  =  N_km_F2(i_DST)  /  N_km(i_DST) 

N_km_Fl(i_DST)  =  N_km_Fl(i_DST)  /  N_km(i_DST) 

N_km_lE(i_DST)  =  N_km_lE(i_DST)  /  N_km(i_DST) 

N_km_2E(i_DST)  =  N_km_2E(i_DST)  /  N_km(i_DST) 

N_km_lEs(i_DST)  =  N_km_lEs(i_DST)  /  N_km(i_DST) 

N_km_2Es(i_DST)  =  N_km_2Es(i_DST)  /  N_km(i_DST) 

N_km_cutE(i_DST)  =  N_km_cutE(i_DST)  /  N_km(i_DST) 

N_km_cutEs(i_DST)  =  N_km_cutEs(i_DST)  /  N_km(i_DST) 

DO  i_FRQ  =  0,  N_FRQ  +  1 

fMHz_km_bin(i_DST,i_FRQ)  =  fMHz_km_bin(i_DST,i_FRQ)  - 
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/  N_km(i_DST) 


IF  ( i_FRQ  GT.  0  AND.  MONTHLY_flag  )  - 
fMH2_km_bm(i_DST,i_FRQ)  =  fMHz_km_bm(i_DST,i_FRQ)  - 
+  fMH2_kin_bin(i_DST,i_FRQ-l) 


END  DO 

DO  i_ANG  =  0,  N_ANG  +  1 

adg_km_bin(i_DST,i_ANG)  =  adg_km_bm(i_DST,i_ANG)  - 
/N_km(i_DST) 

IF  ( i_ANG  GT.  0  AND.  MONTHLY_flag  )  - 
adg_km_bm(i_DST,i_ANG)  =  adg_km_bin(i_DST,i_ANG)  - 
+  adg_km_bm(i_DST,i_ANG-l) 


END  DO 

DO  i_HGT  =  0,  N_HGT  +  1 

hkm_km_bin(i_DST,i_HGT)  =  hkm_km_bm(i_DST,i_HGT)  - 
/N_km(i_DST) 

IF  ( i_HGT  .GT.  0  .AND.  MONTHLY_flag  )  - 
hkm_km_bin(i_DST,i_HGT)  *  hkm_km_bm(i_DST,i  HGT)  - 
+  hkm_km_bin(i_DST,i_HGT- 1 ) 


END  DO 

DO  i_DISP  =  1,  N_DISP 

f_bm(i_DST,i_DISP)  =  f_bin(i_DST,i_DISP)  /  N_km(i_DST) 
END  DO 
END  IF 

DOi_HOUR=  1,24 

IF  (  N_km_hr(i_DST,i_HOUR)  NE.  0.0  )  THEN 

N_km_hr_F2(i_DST,i_HOUR)  =  N_km_hr_F2(i_DST,i_HOUR)  / 
N_km_hr(i_DST,i_HOUR) 

N_km_hr_Fl(i_DST,i_HOUR)  =  N_km_hr_Fl(i_DST,i_HOUR)  / 
N_km_hr(i_DST,i_HOUR) 

N_km_hr_lE(i_DST,i_HOUR)  =  N_km_hr_lE(i_DST,i_HOUR)  / 
N_km_hr(i_DST,i_HOUR) 

N_km_hr_2E(i_DST,i_HOUR)  =  N_kin_hr_2E(i_DST,i_HOUR)  / 


N_km_hr(i_DST.i_HOUR) 

N_km_hr_lEs(i_DST,i_HOUR)  =  N_km_hr_lEs(i_DST,i_HOUR)  /  - 
N_km_hr(i_DST,i_HOUR) 

N_km_hr_2Es(i_DST,i_H0UR)  »  N_km_hr_2Es(i_DST,i_H0UR)  /  - 
N_km_hr(i_DST,i_HOUR) 
N_km_hr_cutE(i_DST,i_HOUR)  -  - 

N_km_hr_cutE(i_DST,i_HOUR)  /  N_km_hr(i_DST,i_HOUR) 
N_km_hr_cutEs(i_DST,i_HOUR)  =  - 

N_km_hr_cutEs(i_DST,i_HOUR)  /  N_km_hr(i_DST,i_HOUR) 

DO  i_FRQ  =  0,  N_FRQ  +  1 

fMH2_km_hr_bm(i_DST,i_H0UR,i_FRQ)  =  - 

£MHz_km_hr_bin(i_DST,i_HOUR,i_FRQ)  /  - 
N_km_hr(i_DST,i_HOUR) 

IF  ( i_FRQ  GT.  0  AND.  MONTHLY_flag  )  - 
fMHz_km_hr_bin(i_DST,i_HOUR,i_FRQ)  =  - 

£MHz_km_br_bin(i_DST,i_HOUR,i_FRQ)  - 
+  fMH2_km_br_bm(i_DST,i_HOUR,i_FRQ-l) 


END  DO 

DO  i_ANG  =  0.  N_ANG  +  1 

adg_km_br_bm(i_DST,i_HOUR,i_ANG)  =  - 

adg_km_br_bin(i_DST,i_HOUR,i_ANG)  /  - 
N_km_br(i_DST,i_HOUR) 

IF  ( i_ANG  .GT.  0  .AND.  MONTHLY_flag  )  - 
adg_km_br_bin(i_DST,i_HOUR,i_ANG)  =  - 

adg_km_br_bin(i_DST,i_HOUR,i_ANG)  - 
+  adg_km_br_bin(i_DST,i_HOUR,i_ANG-l) 


END  DO 

DO  i_HGT  =  0,  N_HGT  +  1 

bkm_km_br_bm(i_DST,i_HOUR,i_HGT)  =  - 

hkm_km_br_bm(i_DST,i_HOUR,i_HGT)  /  - 
N_km_br(i_DST,i_HOUR) 


END  DO 

DO  i_DISP  =  1,  N_DISP 

f_br_bin(i_DST,i_HOUR,i_DISP)  =  - 

f_br_bm(i_DST,i_HOUR,i_DISP)  /  - 
N_km_br(i_DST,i_HOUR) 


END  DO 


END  IF 
END  DO 
END  DO 

"  Exit  if  statistics  are  not  being  collected  monthly. 

IF  (  NOT.  MONTHLY_flag  )  RETURN 

“  Compute  tenth,  fiftieth,  and  ninetieth  percentiles  for  the  link  MUF 
"  add  results  to  the  LNK_file 

DOi_DST=  1,N_DST 

DOi_HOUR=  1,24 

"  WRITE(6,*)  -NEW  i  HOUR; ',  i_HOUR 
"  WRITE(5,*)  TSIEW  i_HOUR: ',  i_HOUR 

DO  i_FRQ  =  0,  N_FRQ+1 

DUM_2  =  fMHz_km_hr_bin(i_DST,i_HOUR,i_FRQ) 

DUM_1  =  fMHz_km_hr_bin(i_DST,i_HOUR,N_FRQ+l) 

IF  (  DUM_1  .NE.  0.0  )  THEN 

fMHz_km_hr_bin(i_DST,i_HOUR,i_FRQ)  =  DUM_2  /  DUM_1 
ELSE 

fMHz_km_hr  bin(i_DST,i_HOUR,i_FRQ)  =  0.0 
END  IF 

f  =  fMHzJow  +  FLOAT(  i_FRQ-l)  *  d_f  +  0.5  ♦  d_f 

"  WRITE(6,*)  i_HOUR,  i_FRQ,  f,  - 

"  fMHz_km_hr_bin(i_DST,i_HOUR,i_FRQ),  - 

"  ANG_km_hr_frq(i_DST,i_HOUR,i_FRQ,l) 

"  WRITE(5,*)  i_HOUR,  i_FRQ,  f,  - 

"  fMHz_km_hr_bin(i_DST,i_HOUR,i_FRQ),  - 

"  ANG_km_hr_frq(i_DST,i_HOUR,i_FRQ,  1) 

END  DO 

PI  0_FLAG  =  . FALSE. 

P50  FLAG  =. FALSE. 


B-32 


P90  FLAG  =  FALSE. 


DO  i_FRQ  «  1,  N_FRQ-1 
x2  =  fMH2_km_hr_bm(i_DST,i_H0UR,i_FRQ+l) 

IF  (  x2  GT.  0.10  .AND.  NOT.  P10_FLAG  )  THEN 
P10_FLAG  =  .TRUE. 

xl  =  fMH2_km_hr_bin(i  DST,i_HOUR,i_FRQ) 
yl  =  fMHzJow  +  (  FLOAT(  i_FRQ  -  1  )  +  0.5  )  *  d_f 
y2  =  yl  +  d_f 

DUM_1  =x2-xl 

IF  (  DUM_1  .NE.  0.0  )  THEN 
m_MUF  =  ( y2  -  yl  )  /  DUM_1 
b_MUF  =  ( yl  *  x2  -  y2  *  xl  )/DUM_l 
DUM_2  =  m_MUF  *  0. 10  +  b_MUF 
ELSE 

DUM_2  =  fMHzJow  +  (  FLOAT(  i_FRQ  -  1 )  +  0.5  )  *  d_f 
END  IF 

IF  (  DUM_2  .GE.  fMHzJow  )  THEN 
MUF_10(i  DST,i_HOUR)  =  DUM_2 
ELSE 

MUF_10(i_DST,i_HOUR)  =  fMHzJow  +  0.5  *  d_f 
END  IF 

DUM_1  =  ANG_km_br_frq(i_DST,iJIOUR,i_FRQ,l) 

IF  (  DUM_1  GT.  0.0  )  THEN 

DUM_2  =  ANG_kin_br_frq(i_DST,i_HOUR,i_FRQ,2) 
ANG_10(i_DST,i_HOUR)  =  DUM_2  /  DUM_1 

ELSE 

Determine  average  angle  below  current  MUFIO  frequency 

DUM_1  =  0.0 
DUM_2  =  0.0 

NONZERO_flag  =  .FALSE. 

DO  j_FRQ  =  i_FRQ-l,  1,  -1 
IF  (  NONZERO_flag  )  THEN 
CYCLE 


ELSE 

DUM_1  =  ANG_km_hr_frq(i_DST,i_HOURJ_FRQ,l) 
IF  (  DUM_1  .NE.  0.0  )  THEN 
NONZERO_flag  =  TRUE. 

DUM_2  =  ANG_km_hr_frq(i_DST,i_HOURJ_FRQ,2) 
END  IF 
END  IF 
END  DO 

Determine  average  angle  above  current  MUFIO  frequency 

DUM_3  =  0.0 
DUM_4  =  0.0 

NONZERO_flag  =  FALSE. 

DO  j_FRQ  =  i_FRQ+l.  N_FRQ 
IF  (  NONZERO_flag )  THEN 
CYCLE 
ELSE 

DUM_3  =  ANG_km_hr_frq(i_DST,i_HOURJ_FRQ,l) 
IF  (  DUM_3  .NE.  0.0  )  THEN 
NONZERO_flag  =  .TRUE. 

DUM_4  =  ANG_km_hr_frq(i_DST,i_HOURJ_FRQ,2) 
END  IF 
END  IF 
END  DO 

DUM_5  =  DUM_1  +  DUM_3 
IF  (  DUM_5  .NE.  0.0  )  THEN 
DUM_6  =  DUM_2  +  DUM_4 
ANG_10(i_DST,i_HOUR)  =  DUM_6  /  DUM_5 
END  IF 

END  IF 

END  IF 

IF  (  x2  .GT.  0.50  .AND.  .NOT.  P50_FLAG  )  THEN 
P50_FLAG=.TRUE. 

xl  =  fMH2_km_hr_bm(i_DST,i_H0UR,i_FRQ) 
yl  =  fMHzJow  +  (  FLOAT(  i_FRQ  -  1  )  +  0.5  )  *  d_f 
y2  =  yl  +  d_f 

DUM_1  =  x2  -  xl 


IF  (  DUM_1  .NE.  0.0  )  THEN 


m_MUF  =  (y2-yl  )/DUM_l 
b_MUF  =  ( yl  *  x2  -  y2  *  xl  )  /  DUM_1 
DUM_2  =  m_MlJF  •  0.50  +  b_MlJF 
ELSE 

DIJM_2  =  fMHzJow  +  ( FLOAT(  i_FRQ  -  1  )  +  0.5  )  *  d_f 
END  IF 

IF  ( DUM_2  .GE.  fMHzJow  )  THEN 
MUF_50(LDST,i  HOUR)  =  DUM_2 
ELSE 

MUF_50(i_DST,i_HOUR)  =  fMHzJow  +  0.5  *  d_f 
END  IF 

DUM_1  =  ANG_km_hr_frq(i_DST,i_HOUR,i_FRQ.l) 

IF  ( DUM_1  .GT.  0.0  )  THEN 

DUM_2  =  ANG_km_lir_frq(i_DST,i_HOUR,i_FRQ,2) 
ANG_50(i_DST,i_HOUR)  =  DUM_2  /  DUM_1 

ELSE 

Determine  average  angle  below  current  MUF50  frequency 

DUM_1  =  0.0 
DUM~2  =  0.0 

NONZERO_flag  =  .FALSE. 

DO  j_FRQ  =  i_FRQ-l,  1,  -1 
IF  (  NONZERO_flag  )  THEN 
CYCLE 
ELSE 

DUM_1  =  ANGJmi_hr_frq(i_DST,i_HOURJ_FRQ,l) 

IF  (  DUM_1  .NE.  0.0  )  THEN 
NONZERO_flag  =  TRUE. 

DUM_2  =  ANG_km_hr_frqfi_DST,i_HOURJ_FRQ,2) 
END  IF 
END  IF 
END  DO 

Determine  average  anlge  above  current  MUF50  frequency 

DUM_3  =  0.0 
DUM_4  =  0.0 

NONZERO_flag  =  FALSE. 

DO  j_FRQ  =  i_FRQ+l,  N_FRQ 
IF  (  NONZERO_flag  )  THEN 
CYCLE 


ELSE 

DUM_3  =  ANG_km_hr_frq(i_DST,i_HOURJ_FRQ,l) 

BF  (  DUMJ  .NE.  0.0  )  THEN 
NONZERO_flag  =  TRUE. 

DUM_4  =  ANG_km_hr_frq(i_DST,i_HOURJ_FRQ,2) 
END  IF 
END  IF 
END  DO 

DUM_5  =  DUM_1  +  DUMJ 
IF  (  DUMJ  .NE.  0.0  )  THEN 
DUMJ  =  DUMJ  +  DUMJ 
y'NGJO(i_DST,i_HOUR)  =  DUMJ  /  DUM_5 
ENDE 

END  IF 

END  IF 

IF  (  x2  .GT.  0.90  .AND.  .NOT.  P90_FLAG  )  THEN 
P90_FLAG  =  TRUE. 

xl  =  fMH2_km  JrJin(i_DST,i_HOUR,i_FRQ) 
yl  =  fMHzJow  +  (  FLOAT(  i_FRQ  -  1  )  +  0.5  )  *  d_f 
y2  =  yl  +  d_f 

DUMJ  =x2-xl 

IF  (  DUM_1  .NE.  0.0  )  THEN 

m_MUF  =  ( y2  -  yl  )  /DUM_1 
b_MUF  =  (  yl  *  x2  -  y2  *  xl  )  /DUM_1 
DUMJ  =  m_MUF  *  0.90  +  b_MUF 
ELSE 

DUMJ  =  fMHzJow  +  (  FLOAT(  i_FRQ  -  1  )  +  0.5  )  *  d_f 
END  IF 

IF  (  DUMJ  .GE.  fMHzJow  )  THEN 
MUF_90(i_DST,i_HOUR)  =  DUMJ 
ELSE 

MUF_90(i_DST,i_HOUR)  =  fMHzJow  +  0.5  *  d J 
END  IF 

DUMJ  =  ANG_km  hr  frq(i_DST,i_HOUR,i_FRQ,l) 

IF  (  DUM_1  .GT.  0.0  )  THEN 


DUM_2  =  ANG_km_hr_frq(i_DST,i_H0UR.i_FRQ,2) 
ANG_90(i_DST,i_HOUR)  =  DUM_2  /  DUM_1 

ELSE 

"  Determine  average  angle  below  current  MUF90  frequency 

DUM_1  =  0.0 
DUM_2  =  0.0 

NONZERO_flag  =  .FALSE. 

DO  j_FRQ  =  i_FRQ-l,  1,  -1 
IF  ( NONZERO_flag  )  THEN 
CYCLE 
ELSE 

DUM_1  =  ANG_km_hr_frq(i_DST.i_HOURJ_FRQ,l) 
IF  (  DUM_1  .NE.  0.0  )  THEN 
NONZERO_flag  =  .TRUE. 

DUM_2  =  ANG_km_hr_frq(i_DST,i_HOURJ_FRQ,2) 
END  IF 
END  IF 
END  DO 

"  Determine  average  angle  above  current  MUF90  frequency 

DUM_3  =  0.0 
DUM_4  =  0.0 

NONZERO_flag  =  .FALSE. 

DO  j_FRQ  =  i_FRQ+l,  N_FRQ 
IF  (  NONZERO_flag  )  THEN 
CYCLE 
ELSE 

DUM_3  =  ANG_km_hr_frq(i_DST,i„HOURJ_FRQ,l) 
IF  (  DUM_3  .NE.  0.0  )  THEN 
NONZERO_flag  =  .TRUE. 

DUM_4  =  ANG_km_hr_frq(i_DST,i_HOURj_FRQ,2) 
END  IF 
END  IF 
END  DO 

DUM_5  =  DUM_1  +  DUM_3 
IF  (  DUM_5  NE.  0.0  )  THEN 
DUM_6  =  DUM_2  +  DUM_4 
ANG_90(i_DST,i_HOUR)  =  DUM_6  /  DUM_5 
END  IF 

END  IF 
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END  IF 


IF  (  P10_FLAG  AND.  P50_FLAG  .AND.  P90_FLAG  )  CYCLE 
END  DO 
END  DO 
END  DO 

"  Output  results  by  appending  to  disk  file 
"  OUTPUT  MUF  values  exceeded  90%  of  the  time 

WRITE(5,700)  'RANGE',  i_YEAR,  i_MONTH.  0,  ( i.  i  =  0,  24  ) 

700  FORMAT(/2x,  a5,  7x, '  10%  NOT  EXCEEDED  (FOT)',  lx,  i4,  lx.  i2,  - 
/2x,  26(  lx,  i3,  lx ) ) 

DO  i_DST  =  1,  N_DST 

WRITE(5,702)  D_km(i_DST),  MUF_10(i_DST,24),  - 
(MUF_10(i_DST,i_HOUR),i_HOUR=l,24),  - 
ANG_10(i_DST,24),  - 
(ANG_10(i_DST,i_HOUR),i  HOUR=l,24) 

702  FORMAT(  lx,  f6. 1,  25f5. 1  /lx,  6x,  25f5. 1  ) 

END  DO 

"  OUTPUT  MUF  values  exceeded  50%  of  the  time 

\vTUTE(5,704)  'RANGE',  0,  ( i,  i  =  0, 24  ) 

704  FORMAT(2x,  a5,  7x, '  50%  NOT  EXCEEDED  (FOT)',  - 
/2x,  26(  lx,  i3,  lx  )  ) 

DO  i_DST  =  1,  N_DST 

WRITE(5,702)  D_km(i_DST),  MUF_50(i__DST,24),  - 
(MUF_50(i_DST,i_HOUR),i_HOUR=l,24),  - 
ANG_50(i_DST,24),  - 
(ANG_50(i_DST,i_HOUR),i_HOUR=l,24) 

END  DO 

"  OUTPUT  MUF’  values  exceeded  10%  of  the  time 

WRITE(5,708)  'RANGE',  0,  ( i,  i  =  0,  24  ) 

708  FORMAT(2x,  a5,  7x, '  90%  NOT  EXCEEDED  (FOT)',  - 
/2x,  26(  lx,  i3,  lx  )  ) 

DO  i_DST  =  1,  N_DST 

’WRITE(5,702)  D_km(i_DST),  MUF_90(i_DST,24),  - 
(MUF_90(i_DST,i_HOUR),i_HOUR=l,24),  - 
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ANG_90(i_DST,24),  - 
(ANG_90(i_DST,i_HOUR).i_HOUR*l,24) 

END  DO 

fMHz_km_hr_bin  =  0.0 
hkm_km_hrjbin  =  0.0 
adg_kin_hr_bm  =  0.0 
fMHz_km_bin  =  0.0 
hkm_km_bin  =  0.0 
adg_km_bin  =  0.0 
ANG_km_hr_frq  =  0.0 
MUFJO  =  0.0 
MUF_50  =  0.0 
MUF^O  =  0.0 
ANGJO  =  0.0 
ANG_50  =  0.0 
ANG_90  =  0.0 
N_kni_hr_F2  =  0.0 
N_km_hr_Fl  =  0.0 
N_km_hr_lE  =  0.0 
N_km_hr_lEs  =  0.0 
N_km_hr_2E  =  0.0 
N_km_hr_2Es  =  0.0 
N_km_F2  =  0.0 
N_km_Fl  =  0.0 
N_km_lE  =  0.0 
N_km_lEs  =  0.0 
N_km_2E  =  0.0 
N_kin_2Es  =  0.0 
N_km_hr  =  0.0 
N_km  =  0.0 

RETURN 

END 
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B.3.2  HFLINKS.FOR  Source  Program 

SFREEFORM 

SLARGE 

”  Subroutine  HFLINKS 

tl 

"  Purpose;  Process  an  lONOSONDE  data  file  following  the  conventions 
"  established  in  UAG-23  and  UAG-23A  and  determine  the  optimum 

"  frequencies  for  an  HF  communications  link  with  its  midpath 

"  above  the  ionosonde. 

SUBROUTINE  HFLINKS(  i  DAY.  i_HOUR,  LINK_flag,  Es_layer_flag,  - 
MONTHLY_flag  ) 

"  Declare  variable  types  and  dimension  arrays 

"  Define  parameters  for  MUF  calculation 

REAL  h_LINK_km,  f_LINK_MHz,  a_LINK_dg,  D_km,  ANG_km_hr_frq 

REAL*4  MUF_fctr,  hF2_km,  hFl_km,  hE_km,  hEs  km,  d_f,  d  a,  d_h 
REAL*4  foF2_MHz,  foFl_MHz,  foE_MHz,  foEs_lVfiIz 
REALM  MUF_lF2_MHz(l.iO),  MUF_lFl_MHz(l;10) 

REALM  MUF_lE_MHz(l:10),  MUF_lEs_MHz(l:10) 

REAL*4  MUF_2E_MHz(l :  10),  MUF  2Es_MHz(l ;  10) 

REAL*4  CTF_E_MHz,  CTF_Es_MHz 

REALM  aF2_dg(l:10),  aFl_dg(l:10),  alE_dg(l:10),  alEs_dg(l:10) 

REAL*4  a2E_dg(  1:10),  a2Es_dg(l :  1 0) 

REAL*4  kF,  DUM_1,  DUM_2,  k_VALUE 

REAL*4  fMHz_km_hr_bin,  adg_km_hr_bin,  hkm_km_hr_bin,  M_H 

REAL*4  N_km_hr_F2,  N_km_hr_Fl,  N_km_hr_lE,  N_km_hr_lEs,  N_km_hr_2E 

REAL*4  N_km_hr_2Es,  fMHz_km_bin,  adg_km_bin,  hkm_km_bin 

REAL*4  N_km_F2,  N_km_Fl,  N_km_lE,  N_km_lEs,  N_km_2E 

REAL*4  N_km_2Es,  N_km_hr,  N_km,  E_cut_MHz 

REAL*4  N_km_hr_cutE,  N_km_hr_cutEs,  N_km_cutE,  N_km_cutEs 

REAL  *4  fMHz  low,  fMHz_hgh,  adg_low,  adg_hgh,  hkm_low,  hkm_hgh 

REAL*4  f_limit,  f_hr_bin,  f_bin 

INTEGER*4  i_DAY,  i_HOUR,  i_DST,  N_DST,  N_FRQ,  N_ANG,  N_HGT,  ONE 
INTEGER*4N_DISP 

LOGICAL*!  F2_flag(l:10),  Fl_flag(l:10),  E_flag(l:  10,1:2) 

LOGICAL*!  LINK_flag(l:10),  Es_flag(l;l 0,1:2),  Es_layer_flag 
LOGICAL*!  E_cut_flag,  Es_cut_flag,  MONTHLY_flag 


REAL*4  foF2,  fxF2,  fzF2,  M3000F2,  hF2,  hpfZ,  foFl,  fxFl,- 


M3000F1,  hFl,  hF,  foE,  foE2.  hE,  hE2,  foEs,- 
fxEs,  fbEs,  fEs,  hEs,  foFldS,  fmin,  M3000Fld5,  hfldS,- 
fol,  fxl,  fml.  12000,  U,  Ixxx 

CHARACTER*20  LNK_file 

Define  conunon  blocks 

COMMON/IONSNP/  foF2(31,24),  M3000F2(31,24),  hF2(31,24),  foFl(31,24),- 
M3000F  1(3 1,24),  hF  1(3 1,24),  hF(31,24),  foE(31,24),- 
hE(3 1 ,24),  foEs(3 1 ,24),  fbEs(3 1 ,24),  fEs(3 1 ,24),- 
hEs(3 1 ,24),  fmm(3 1 ,24),  fxl(3 1 ,24) 

COMMON  /LIMIT/  fMHz  low,  fMH2_hgh,  adg_low,  adg  hgh,  hkmjow,  hkm_hgh,- 
N_FRQ,  N_ANg7n_HGT,  LNK_file,  d_f,  d_a,  d_h,  - 
D_km(l :  10),  N_DST,  N_DISP 

COMMON /FRQBN/fMHz_km_hr_bin(l:l0,l:24,0:61),  fMH2_km_bin(l:  10,0:61),  - 
f_limit(l ;  12, 1  ;2),  f_hr_bin(l ;  10,1 :24, 1 : 12),  - 
f_bin(l:10,l:12) 

COMMON /ANGBN/ adg  km  hr_bm(l:10,l:24,0:61),  adg  km_bin(l:10,0:61), - 
ANG_km_hr_frq(l :  10, 1  ;24,0:61, 1 :2) 

COMMON  /HGTBN/  hkm_km_hr_bm(l :  10, 1 :24,0:61),  hkm_km_bin(l :  10,0:61) 

COMMON /COUNT/ N_km_hr_F2(l:  10, 1:24),  N_km_hr_Fl(l:  10,1:24),  - 
N_km_hr_lE(l:  10,1:24),  N_km_hr_lEs(l:10,l:24),  - 
N_km_lir_2E(l :  10, 1 :24),  N_km_hr_2Es(l :  10, 1 :24),  - 
N_km_Fl(  1:10),  N_km_F  1(1:10),  N_km_lE(  1:10),- 
N_km_lEs(l.i0),  N_km_2E(l:10),  N_km_2Es(l:10),  - 
N_km_hr_cutE(l :  10, 1 :24),  N_km_cutE(l :  10),  - 
N_km_hr_cutEs(l :  1 0, 1 :24),  N_km_cutEs(l :  1 0),  - 
N_km_hr(l :  10, 1 :24),  N_km(l :  10) 


DATA  Re_km/6370.0/ 

^i*i^Hi*^tt*********************************************************** 

Compute  constants 

S_3000  =  SIN(  3000.0  /  (  2.0  *  6370.0 ) ) 

C_3000  =  COS(  3000.0  /  ( 2.0  *  6370.0  )  ) 
pi  =  4.0*  ATAN(  1.0) 


rddg=  180.0 /pi 
dgrd  =  pi/ 180.0 

MUF_lF2_MHz  =  0.0 
MUF_lFl_MHz  =  0.0 
MUF_lE_MHz  =  0.0 
MUF_2E_MHz  =  0.0 
MUF_lEs_MHz  =  0.0 
MUF_2Es_MH2  =  0.0 
CTF_E_MH2  =  0.0 
CTF_Es_MHz  =  0.0 
foF2_MHz  =  0.0 
foFl_MHz  =  0.0 
foE_MHz  =  0.0 
foEs_MHz  =  0.0 
hF2_km  =  0.0 
hFlkm  =  0.0 
hE_km  =  0.0 
hEs_km  =  0.0 

h_LINK_km  =  0.0 
f_LINK_MHz  =  0.0 
a_LINK_dg  =  0.0 


"  Determine  the  appropriate  oblique  transmission  frequency  for  the  F2  layer 
"  at  each  path  length. 

F2_flag  =  .FALSE. 

IF  (  foF2(i_DAY,i_HOUR)  .GT.  0.0  )  THEN 


foF2_MHz  =  foF2(i_DAY,i_HOUR) 
foF2(i_DAY,i_HOUR)  =  -1.0 

IF  ( M3000F2(i_DAY,i_HOUR)  .GT.  0.0  )  THEN 
MUF_fctr  =  M3000F2(i_DAY,i_HOUR) 
M3000F2(i_DAY,i_HOUR)  =  -1.0 
DUM_1  =  MUFJctr  /  k_VALUE(  3000.0  ) 

DUM_1  =  SQRT(  DUM_1**2  -  1  ) 
hF2_km  =  Re_km  *  (  S_3000  /  DUM_1  +  C_3000  -  1.0) 
ELSE  IF  (  hF2(i_DAY,i_HOUR)  .GT.  0.0  )  THEN 
hF2_km  =  hF2(i_DAY,i_HOUR) 
hF2(i_DAY,i_HOUR)  =  -1.0 
ELSE 

hF2_km  =  325.0 
END  IF 
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Determine  the  appropriate  transmission  frequency  for  each  path  length. 


DO  i_DST  =  1,  N_DST 

Determine  the  included  angle  for  the  current  path  length. 

theta_rd  *=  D_km(i_DST)  /  Re_km 

Compute  the  incidence  angle  for  a  curved  earth. 

DUM_1  =  SIN(  theta_rd  /  2.0  ) 

DIJM_2  =  1  +  hF2_km  /  Re_km  -  COS(  theta_rd  /  2.0  ) 

IF  (  DUM_2  .LT.  1.0 )  THEN 

IF  (  1.0e38  ♦  DUM_2  .GT.  DUM_1  )  THEN 
phi_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

ELSE 

phi_rd  =  pi  /  2.0 
END  IF 

ELSE 

phi_rd  «  ATAN2(  DUM_1,  DUM_2  ) 

END  IF 

Compute  the  "secant  corrected"  factor  k. 

Kf  =  k_VALUE(  D_km(i_DST)  ) 

Compute  the  maximum  usable  frequency  for  the  F2  layer  for  the  current 
path  length. 

MUF_lF2_MHz(i_DST)  =  Kf  *  foF2_MH2  /  COS(  phi_rd  ) 

Compute  the  appropriate  elevation  angle  for  the  F2  ray  at  the  current 
value  of  path  length. 

R_km  =  Re_km  +  hF2_km 
DUM  l  =  2.0  *  Re_km  *  R_km 
DUM_1  =  DUM_1  *  COS(  D_km(i_DST)  /  (  2.0  ♦  Re_km  )  ) 
DUM_1  =  SQRT(  R_km**2  +  Re_km**2  -  DUM_1 ) 

DUM_2  =  Re_km**2  +  DUM_1**2  -  R_km**2 
DUM_2  =  DUM_2  /  (  2.0  *  Re_km  *  DUM_1 ) 

DUM_2  =  ACOS(  DUM_2  )  -  pi  /  2.0 
aF2_dg(i_DST)  =  rddg  *  DUM_2 


IF  (  aF2_dg(i_DST)  GE.  0.0  )  F2_flag(i_DST)  =  .TRUE. 

END  DO 

END  IF 

Detennine  the  appropriate  oblique  transmission  frequency  for  the  FI  layer 
at  each  path  length. 

Fl_flag  =  FALSE. 

IF  (  foFl(i_DAY,i_HOUR)  GT.  0.0  )  THEN 

foFl_MHz  =  foFl(i_DAY.i_HOUR) 
foFl(i_DAY,i_HOUR)  =  -1.0 

IF  (  M3000Fl(i_DAY,i_HOUR)  GT.  0.0  )  THEN 
MUF_fctr  =  M3000Fl(i_DAY,i_HOUR) 
M3000Fl(i_DAY.i_HOUR)  =  -1.0 
DUM_1  =  MUFJctr  /  k_VALUE(  3000.0  ) 

DUM_1  =  SQRT(  DUM_1**2  - 1  ) 

DUM_2  =  S_3000  /  DUM_1  +  C  3000  -  1.0 
hFl_km  =  Re_km  •  (  DUM_2 )  " 

ELSE  IF  (  hFl(i_DAY,i_HOUR)  .GT.  0.0  )  THEN 
hFl_km  =  hFl(i_DAY,i_HOUR) 
hFl(i_DAY,i_HOUR)  =  -1.0 
ELSE  IF  (  hF(i_DAY,i_HOUR)  .GT.  0.0  )  THEN 
hFl_km  =  hF(i_DAY,i_HOUR) 
hF(i_DAY,i_HOUR)  =  -1.0 
ELSE 

hFl_km  =  200.0 
END  IF 

DO  i_DST  =  1,  N_DST 

WRITE(6,*)  'FI  i_DST:  i_DST 

Determine  the  included  angle  for  the  current  path  length. 

theta_rd  =  D_km(i_DST)  /  Re_km 

Compute  the  incidence  angle  for  a  curved  earth. 

DUM_1  =  SIN(  theta_rd  /  2.0  ) 

DUM_2  =  1  +  hFl_km  /  Re_km 
DUM_2  =  DUM_2  -  COS(  theta_rd  /  2.0  ) 


IF  (  DUM_2  LT.  1 .0  )  THEN 


IF  (  1.0e38  •  DUM_2  GT.  DUM_1  )  THEN 
phi_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

ELSE 

phi_rd  =  pi  /  2.0 
END  IF 

ELSE 

phi_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

END  IF 

Compute  the  "secant  corrected"  factor  k. 

Kf  =  k_VALUE(  D_km(i_DST) ) 

Compute  the  maximum  usable  frequency  for  the  FI  layer. 

MUF_lFl_MH2(i_DST)  =  Kf  *  foFl_MH2  /  COS(  phi_rd  ) 

Compute  the  appropriate  elevation  angle  for  the  Fl-reflected  ray. 

R_km  =  Re_km  +  hF  IJkm 
DUM_1  =  2.0  *  Re_km  *  R_km 

DUM_1  =  DUM_1  *  COS(  D_km(i_DST)  /  (  2.0  *  Re_km  )  ) 
DUM_1  =  SQRT(  R_km**2  +  Re_km**2  -  DUM_1  ) 

DUM_2  =  Re_km**2  +  DUM_1**2  -  R_km**2 
DUM_2  =  DUM_2  /  (  2.0  ♦  Re_km  *  DUM_1 ) 

DUM_2  =  ACOS(  DUM.  2  )  -  pi  /  2.0 
aFl_dg(i_DST)  =  rddg  *  DUM_2 

IF  (  aFl_dg(i_DST)  .GE.  0.0  )  Fl_flag(i_DST)  =  .TRUE. 

END  DO 

END  IF 

Determine  the  appropriate  oblique  transmission  frequency  for  the  E  layer 
at  each  path  length. 

Ejflag  =  .FALSE. 

IF  (  foE(i_DAY,i_HOUR)  .GT.  0.0  )  THEN 
foE_MHz  =  foE(i_DAY,i_HOUR) 


foE(i_DAY,i_HOUR)  =  -1.0 

IF  (  hE(i_DAY,i_HOUR)  .GT.  0.0  )  THEN 
hE_kin  =  hE(i  DAY,i_HOUR) 
hE(i_DAY,i_HOUR)  =  -1.0 
ELSE 

hE_km=  110.0 
ENDff 

DO  i_DST  =  1,  N_DST 
"  WRITE(6,*) 'E  i_DST:  i_DST 

"  Determine  the  included  angle  for  the  current  path  length  and  ONE  E-layer 
"  hop. 

theta_rd  =  D_km(i_DST)  /  Re_km 

"  Compute  the  incidence  angle  for  a  curved  earth. 

DUM_1  =  SIN(  theta_rd  /  2.0  ) 

DIJM_2  =  1  +  hE_km  /  Re_km 
DUM_2  =  DUM  2  -  COS(” lieta  rd  /  2.0  ) 

IF  ( DUM_2  .LT.  f  0 )  THEN 

IF  (  1.0e38  *  DUM  2  .GT.  DUM_1  )  THEN 
phi_rd  =  ATAN2fDUM_l,  DUM_2  ) 

ELSE 

phi_rd  =  pi  /  2.0 
END  IF 

ELSE 

phi_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

END  IF 

"  Compute  the  "secant  corrected"  factor  k. 

Kf  =  k_VALUE(  D_km(i_DST)  ) 

"  Compute  the  maximum  usable  frequency  for  the  E  layer  using  ONE  hop. 

MUF_lE_MHz(i_DST)  =  Kf  *  foE_MHz  /  COS(  phi_rd  ) 

"  Compute  the  appropriate  elevation  angle  for  the  ONE-hop  E-reflected  ray. 
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R_km  =  Rc_km  +  hE_km 
DUM_1  =  2.0  •  Re_km  •  R_km 

DUM_1  *  DUM_1  *  COS(  D_km(LDST)  /  (  2.0  *  Re_km  )  ) 
DUM_1  »  SQRT(  R_km**2  +  Re_kin**2  -  DUM_1  ) 

DUM_2  =  Re_km**2  +  DUM_1  **2  -  R_km**2 
DUM_2  =  DUM_2  /  (  2.0  *  Re_km  *  DUM_1  ) 

DUM_2  =  ACOS(  DUM_2  )  -  pi  /  2.0 
alE_dg(i_DST)  =  rddg  *  DUM_2 

IF  (  alE_dg(i_DST)  .GE.  0.0  )  E_flag(i_DST,l)  =  .TRUE. 

Determine  the  included  angle  for  the  current  path  length  and  TWO  E-layer 
hops. 


theta_rd  =  D_km(i_DST)  /  ( 2.0  *  Re_km  ) 

Compute  the  incidence  angle  for  a  curved  earth. 

DUM_1  =  SIN(  thetard  /  2.0 ) 

DUM_2  =  1  +  hE_km  /  Re_km 
DUM_2  =  DUM_2  -  COS(  theta_rd  /  2.0  ) 

IF  (  DUM_2  .LT.  1.0  )  THEN 

IF  (  1.0e38  *  DUM_2  .GT.  DUM_1 )  THEN 
phi_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

ELSE 

phi_rd  =  pi  /  2.0 
END  IF 

ELSE 

phi_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

END  IF 

Compute  the  "secant  corrected"  factor  k. 

Kf  =  k_VALUE(  D_km(i_DST)  /  2.0  ) 

Compute  the  maximum  usable  frequency  for  the  E  layer  for  TWO  hops. 

MUF_2E_MHz(i_DST)  =  Kf  *  foE_MHz  /  COS(  phi_rd  ) 

Compute  the  appropriate  elevation  angle  for  the  TWO-hop  E-reflected  ray. 


R_km  =  Re_km  +  hEkm 
DUM  1  =  2.0  *  Re  km  *  R  km 


DUM_1  =  DUM_1  *  COS(  D_km(i_DST)  /  (  4.0  •  Re_km  )  ) 
DUM_1  =  SQRT(  R_km**2  +  Re_km**2  -  DUM_1  ) 

DUM_2  =  Re_km**2  +  DUM_1**2  -  R_km**2 
DUM_2  =  DUM_2  /  ( 2.0  *  Re_km  *  DUM_1  ) 

DUM_2  =  ACOS(  DUM_2 )  -  pi  /  2.0 
a2E_dg(i_DST)  =  rddg  *  DUM_2 

IF  (  a2E_dg(i_DST)  .GE.  0.0  )  E_flag(i_DST,2)  =  .TRUE. 

END  DO 

END  IF 

Determine  the  appropriate  oblique  transmission  frequency  for  the  Es  layer 
at  each  path  length. 

Es_flag  =  .FALSE. 

IF  (  foEs(i_DAY,i_HOUR)  .GT.  0.0  .AND.  Es_layer_flag  )  THEN 

foEs_MHz  =  foEs(i_DAY,i_HOUR) 

foEs(i_DAY,i_HOUR)  =  -1.0 

IF  (  hEs(i_DAY,i_HOUR)  .GT.  0.0  )  THEN 
hEs_km  =  hEs(i_DAY,i_HOUR) 
hEs(i_DAY,i_HOUR)  =  -1.0 
ELSE 

hEs_km  =  120.0 
END  IF 

DO  i_DST  =  1,  N_DST 

Determine  the  included  angle  for  the  current  path  length  and  ONE  E-layer 
hop. 

Determine  the  included  angle  for  the  current  path  length. 

theta_rd  =  D_km(i_DST)  /  Re_km 

Compute  the  incidence  angle  for  a  curved  earth. 

DUM_1  =  SIN(  theta_rd  /  2.0  ) 

DUM_2  =  1  +  hEs_km  /  Re_km 
DUM_2  =  DUM_2  -  COS(  theta_rd  /  2.0  ) 

IF  (  DUM_2  .LT  1.0  )  THEN 

IF  (  1.0e38  *  DUM_2  .GT.  DUM_1  )  THEN 


phi_rd  =  ATAN2(  DUM_1.  DUM_2  ) 

ELSE 

phird  =  pi  /  2.0 
END  IF 

ELSE 

phi_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

END  IF 

Compute  the  "secant  corrected"  factor  k  for  ONE  hop. 

Kf  =  k_VALUE(  D_km(i_DST) ) 

Compute  the  maximum  usable  frequency  for  the  Es  layer  for  ONE  hop. 

MUF_lEs_MHz(i_DST)  =  Kf  *  foEs_MH2  /  COS(  phi_rd ) 

Compute  the  appropriate  elevation  angle  for  the  Es-reflected  ray 

R_km  =  Re_km  +  hEs_km 
DUM_1  =  2.0  *  Re_km  *  R_km 

DUM_1  =  DUM_1  *  COS(  D_km(i_DST)  /  ( 2.0  *  Re_km ) ) 
DUM_1  =  SQRT(  R_km**2  +  Re_km**2  -  DUM_1 ) 

DUM_2  =  Re_km**2  +  DUM_1  **2  -  R_km**2 
DUM_2  =  DUM_2  /  (  2.0  *  Re_km  *  DUM_1  ) 

DUM_2  =  ACOS(  DUM_2  )  -  pi  /  2.0 
alEs_dg(i_DST)  =  rddg  *  DUM_2 

IF  (  alEs_dg(i_DST)  .GE.  0.0 )  Es_flag(i_DST,l)  =  .TRUE. 

Determine  the  included  angle  for  the  current  path  length  and  TWO  E-layer 
hops. 

Determine  the  included  angle  for  the  current  path  length. 

theta_rd  =  D_km(i_DST)  /  (  2.0  *  Re_km  ) 

Compute  the  incidence  angle  for  a  curved  earth. 

DUM_1  =  SIN(  theta_rd  /  2.0  ) 

DUM_2  =  1  +  hEs_km  /  Rekm 
DLTvl_2  =  DUM_2  -  COS(  theta_rd  /  2.0  ) 

IF  (  DUM_2  .LT.  1.0  )  THEN 

IF  (  1.0e38  *  DUM_2  .GT.  DUM_1  )  THEN 


phi_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

ELSE 

phi_rd  =  pi  /  2.0 
END  IF 

ELSE 

phi_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

END  IF 

Compute  the  "secant  corrected"  factor  k  for  TWO  hops. 

Kf  =  k_VALUE(  D_km(i_DST)  /  2.0  ) 

Compute  the  maximum  usable  frequency  for  the  Es  layer  for  TWO  hops. 

MUF_2Es_MH2(i_DST)  =  Kf  *  foEs_MHz  /  COS(  phi_rd  ) 

Compute  the  appropriate  elevation  angle  for  the  Es-reflected  ray  for 
TWO-hop  HF  propagation. 

R_km  =  Re  km  +  hEs  km 
DUM_1  =  2.0"*  Re_km  *  R_km 

DUM_1  =  DUM_1  *  COS(  D_km(i_DST)  /  (  4.0  *  Re_km  )  ) 
DUM_1  =  SQRT(  R_km**2  +  Re_km**2  -  DUM_1 ) 

DUM_2  =  Re_km**2  +  DUM_1**2  -  R_km**2 
DUM_2  =  DUM_2  /  (  2.0  *  Re_km  *  DUMJ  ) 

DUM_2  =  ACOS(  DUM_2  )  -  pi  /  2.0 
a2Es_dg(i_DST)  =  rddg  *  DUM_2 

IF  (  a2Es_dg(i_DST)  .GE.  0.0  )  Es_flag(i_DST,2)  =  .TRUE. 

END  DO 

END  IF 

Determine  the  MUF,  the  virtual  height,  and  the  elevation  angle  for 
each  HF  link  range  and  increment  appropriate  bins. 

DO  i_DST  =  1,  N_DST 

Increment  the  number  of  hours  used  in  each  distribution 

N_km(i_DST)  =  N_km(i_DST)  +  1.0 
N_km_hr(i_DST,i_HOUR)  =  N_km_hr(i_DST,i_HOUR)  +  1.0 
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First,  determine  HF  link  propagation  if  it  were  provided  by  the  F2  layer 
via  ONE  hop. 

IF  (  F2_flag(i_DST)  )  THEN 

h_LINK_km  =  hF2_km 
f_LINK_MHz  =  MUF_lF2_MH2(i_DST) 
a_LINK_dg  =  aF2_dg(i_DST) 

N_km_hr_F2(i_DST,i_HOUR)  =  N_km__hr_F2(i_DST,i_HOUR)  +  1.0 
N_km_F2(i_DST)  =  N_km_F2(i_DST)  +  1.0 

END  IF 

Check  to  see  if  the  FI  layer  supercedes  the  F2  layer  and  supports  the 
specified  propagation  range  via  ONE  hop. 

IF  (  Fl_flag(i_DST)  .AND.  - 

MUF_lFl_MHz(i_DST)  .GT.  f_LINK_MHz  )  THEN 

h_LINK_km  =  hFl_km 
f_LINK_MHz  =  MUF_lFl_MHz(i_DST) 
a_LINK_dg  =  aF  l_dg(i_DST) 

IF  (  F2_flag(i_DST)  )  THEN 

N_km_hr_F2(i_DST,i_HOUR)  =  N_km_hr_F2(i_DST,i_HOUR)  - 1.0 
N_km_F2(i_DST)  =  N_km_F2(i_DST)  -  1.0 
F2_flag(i_DST)  =  .FALSE. 

END  IF 

N_km_hr_Fl(i_DST.i_HOUR)=N_km  hr_Fl(i_DST,i_HOUR)  + 1.0 
N_km_Fl(i_DST)  =  N  _km_Fl(i_DST)  +  1.0 

ELSE  IF  ( Fl_flag(i_DST)  .AND.  - 

MUF_lFl_MHz(i_DST)  LE.  f_LINK_MHz  )  THEN 

Fl_flag(i_DST)  =  .FALSE. 

END  IF 

Check  to  see  if  the  E  layer  supercedes  the  F2  and  FI  layers  and  supports 
the  specified  propagation  range  via  ONE  hop. 

IF  (  E_flag(i_DST,l)  .AND.  - 

MUF_lE_MHz(i_DST)  .GT.  f_LINK_MHz  )  THEN 

h_LINK_km  =  hE_km 
f_LINK_MHz  =  MUF_lE_MHz(i_DST) 
a_LINK_dg  =  alE_dg(i_DST) 


IF  ( F2_flag(i_DST)  )  THEN 

N_km_hr_F2(i_DST,i_H0UR)  =  N_km_hr_F2(i_DST,i_H0UR)  - 1.0 
N_km_F2(i_DST)  =  N_km_F2(i_DST)  -  1.0 
F2_flag(i_DST)  =  .FALSE. 

END  IF 

IF  ( Fl_flag(i_DST) )  THEN 

N_km_hr_Fl(i_DST,i_HOUR)  =  N_km_hr_Fl(i  DST,i_HOUR)  - 1 .0 
N_km_F  1  (i_DST)  =  N_km_F  1  (i_DST)  -1.0 
Fl_flag(i_DST)  =  .FALSE. 

END  IF 

N_km_hr_lE(i_DST.i_HOUR)  =  N_kin_hr_lE(i_DST,i_HOUR)  +  1.0 
N_km_lE(i_DST)  =  N_km_lE(i_DST)  +  1.0 

ELSE  IF  (  E_flag(i_DST,I)  .AND.  - 

MUF_lE_MHz(i_DST)  .LE.  f_LINK_MHz  )  THEN 

E_flag(i_DST,l)  =  .FALSE. 

END  IF 

Check  to  see  if  the  E  layer  supercedes  the  F2  and  FI  layers  and  supports 
the  specified  propagation  range  via  TWO  hops. 

IF  (  E_flag(i_DST,2)  .AND.  - 

MUF_2E_MH2(i_DST)  .GT.  f_LINK_MHz  )  THEN 

h_LINK_km  =  hE_km 
f_LINK_MHz  =  MUF_2E_MH2(i_DST) 
a_LINK_dg  =  a2E_dg(i_DST) 

IF  (  F2_flag(i_DST) )  THEN 

N_km_hr_F2(i_DST,i_HOUR)  =  N_km_hr_F2(i_DST,i_HOUR)  - 1.0 
N_km_F2(i_DST)  =  N_km_F2(i_DST)  -  1.0 
F2_flag(i_DST)  =  .FALSE. 

END  IF 

IF  (  Fl_flag(i_DST)  )  THEN 

N_km_hr_Fl(i_DST,i_HOUR)  =  N_km_hr_Fl(i_DST,i_HOUR)  - 1.0 
N_km_Fl(i_DST)  =  N_km_Fl(i_DST)  -  1.0 
F  l_flag(i_DST)  =  .FALSE. 

END  IF 

IF  (  E_flag(i_DST,l) )  THEN 

N_km_hr_lE(i_DST,i_HOUR)  =  N_kin_hr_lE(i_DST,i_HOUR)  - 1.0 
N_km_lE(i_DST)  =  N_km_lE(i_DST)  -  1.0 
E_flag(i_DST,l)  =  .FALSE. 

END  IF 

N_km_hr_2E(i_DST,i_HOUR)  =  N_km_hr_2E(i_DST,i_HOUR)  +  1.0 


N_km_2E(i_DST)  =  N_km_2E(j_DST)  +  1.0 

ELSE  IF  (  E  flag(!_DST,2)  .AND.  - 

MUF_2E_MHz(i_DST)  LE.  f_LINK_MHz )  THEN 

E_flag(i_DST,2)  =  .FALSE. 

END  IF 

Check  to  see  if  the  Es  layer  supercedes  the  F2,  FI,  and  E  layers  and 
supports  the  specified  propagation  range  via  ONE  hop. 

IF  (  Es_flag(i_DST.l)  .AND.  MUF_lEs_MHz(i_DST)  - 
.GT.  f_LINK_MH2  AND.  Es_layer_flag  )  THEN 

h_LINK  km  =  hEs_km 
f_LINKjMHz  =  MUF_lEs_MHz(i_DST) 
a_LINK_dg  =  alEs_dg(i_DST) 

IF  (  F2_flag(i_DST)  )  THEN 

N_km  hr_F2(i_DST,i_HOUR)  =  N_kin_hr_F2(i_DST,i_HOUR)-  1.0 
N  km'’F2(i_DST)  =  N_km_F2(i_DST)- 1.0 
F2_flag(i_DST)  =  .FALSE. 

END  IF 

IF  (  Fl_flag(i_DST)  )  THEN 

N_km  hr_Fl(i_DST,i  HOUR)  =  N_kni_hr_Fl(i_DST,i_HOUR)  - 1.0 
N  km“Fl(i_DST)  =  Nlkm_Fl(i_DST)-  1.0 
Fr_fl^(i_DST)  =  .FALSE. 

END  IF 

IF  (  E_flag(i_DST,l)  )  THEN 

N_km_hr_lE(i_DST,i_HOUR)  =  N_km_hr_lE(i_DST,i_HOUR)  - 1.0 
N_km_lE(i_DST)  =  N_km_lE(i_DST)  -  1.0 
E_flag(i_DST,l)  =  .FALSE. 

END  IF 

IF  (  E_£Iag(i_DST,2)  )  THEN 

N_km_hr_2E(i_DST,i_HOUR)  =  N_km_hr_2E(i_DST,i_HOUR)  - 1.0 
N_km_2E(i_DST)  =  N_km_2E(i_DST)  -1.0 
E_flag(i_DST,2)  =  .FALSE. 

END  IF 

N_km_hr_lEs(i_DST,i_HOUR)  =  N_km_hr_lEs(i_DST,i_HOUR)  +  1.0 
N_km_lEs(i_DST)  =  N_km_lEs(i_DST)  +  1.0 

ELSE  IF  (  Es  «?(i_DST,l)  .AND.  - 

Mu.  _lEs_MH2(i_DST)  .LE.  f_LINK_MHz  )  THEN 


Es_flag(i_DST,l)  =  .FALSE. 


END  IF 


"  Check  to  see  if  the  Es  layer  supercedes  the  F2,  FI,  and  E  layers  and 
”  supports  the  specified  propagation  range  via  TWO  hops. 

IF  (  Es_flag(i_DST,2)  .AND.  MUF_2Es_MHz(i_DST)  .GT.- 
f_LINK_MHz  .AND.  Esjayer_flag  )  THEN 

h_LINK_km  =  hEs_km 
f_LINK_MH2  =  MUF_2Es_MH2(i_DST) 
a_LINK_dg  =  a2Es_dg(i_DST) 

IF  (  F2_flag(i_DST)  )  THEN 

N_km_hr_F2(i_DST,i_HOUR)  =  N_km_hr_F2(i_DST,i_HOUR)  -  1.0 
N_km_F2(i_DST)  =  N_kin_F2(i_DST)  -  1.0 
F2_flag(i_DST)  =  .FALSE. 

END  IF 

IF  (  Fl_flag(i_DST)  )  THEN 

N_km_hr_Fl(i_DST,i_HOUR)  =  N_kin_hr_Fl(i_DST,i_HOUR)  - 1.0 
N_km_Fl(i_DST)  =  N_km_Fl(i_DST)  -  1.0 
Fl_flag(i_DST)  =  .FALSE. 

END  IF 

IF  (  E_flag(i_DST,l)  )  THEN 

N_km_hr_lE(i_DST,i_HOUR)  =  N_kni_hr_lE(i_DST,i_HOUR)  -  1.0 
N_km_lE(i_DST)  =  N  km_lE(i_DST)- 1.0 
E_flag(i_DST,l)  =  .Fi^SE. 

END  IF 

IF  (  E_flag(i_DST,2)  )  THEN 

N_km_hr_2E(i_DST,i_HOUR)  =  N_kin_hr_2E(i_DST,i_HOUR)  - 1.0 
N_km_2E(i_DST)  =  N_km_2E(i_DST)  -  1.0 
E_flag(i_DST,2)  =  .FALSE. 

END  IF 

IF  (  Es_flag(i_DST,l)  )  THEN 

N_km_hr_lEs(i_DST,i_HOUR)  =  N_kin_hr_lEs(i_DST,i_HOUR)  - 1.0 
N_km_lEs(i_DST)  =  N_km_lEs(i_DST)  -  1.0 
Es_flag(i_DST,l)  =  .FALSE. 

END  IF 

N_km_hr_2Es(i_DST,i_HOUR)  =  N_km_hr_2Es(i_DST,i_HOUR)  +  1.0 
N_km_2Es(i_DST)  =  N_km_2Es(i_DST)  +  1.0 

ELSE  IF  (  Es_flag(i_DST,2)  .AND.  - 

MUF_2Es_MHz(i_DST)  .LE.  f_LINK_MHz  )  THEN 

Es_flag(i_DST,2)  =  .FALSE. 

END  IF 
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"  If  an  F-layer  HF  link  is  determined,  compute  E-  and  Es-layer 
"  cut-ofF  frequencies  to  determine  if  foreshortening  occurs. 

"  Compute  the  E-layer  cut-off  frequency. 

IF  (  foE_MHz  .GT.  0.0  .AND.  hE_km  GT.  0.0  )  THEN 

R_km  =  Re_km  +  hE_km 

alpha_rd  =  pi  /  2.0  +  dgrd  *  a_LINK_dg 

DUM_1  =  Re_km  *  COS(  alpha_rd  ) 

DUM_2  =  SQRT(  R_km**2  -  (  SIN(  alpha^rd  )  •  Re_km  )**2  ) 
dkm  =  DUM_1  +  DUM_2 

DUM_1  =  R_km**2  +  Re__km**2  -  dkm**2 
DUM_2  =  2.0  *  R_km  *  Re_km 
theta_rd  =  2.0  *  ACOS(  DUM_1  /  DUM_2  ) 

D_E_km  =  Re_km  *  theta_rd 

"  Compute  the  incidence  angle  for  a  curved  earth. 

DUM_1  =  SIN(  theta_rd  /  2.0  ) 

DUM_2  *  1  +  hE_kn:'  /  Re  km  -  COS(  theta  rd  /  2.0  ) 

IF  (  DUM_2  .LT.  1 .0  )  THEN 

IF  (  1.0e38  *  DUM_2  .GT.  DUM_1 )  THEN 
phi_cutE_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

ELSE 

phi_cutE_rd  =  pi  /  2.0 
END  IF 

ELSE 

phi_cutE_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

END  IF 

"  Compute  the  "secant  corrected"  factor  k. 

Kf  =  k_VALUE(  D_E_km  ) 

"  Compute  the  maximum  usable  frequency  for  the  E-layer  cut-ofF  frequency. 
CTFJE_MHz  =  Kf  *  foE^MHz  /  COS(  phi_cutE_rd  ) 

ENDff 
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Compute  the  Es-layer  cut-off  frequency. 

IF  (  foEs_MHz  GT.  0.0  .AND.  hEs_km  GT.  0.0  )  THEN 

R_km  =  Re_km  +  hEs_km 

alpha_rd  =  pi  /  2.0  +  dgrd  *  a_LINK_dg 

DUM_1  =  Re_km  *  COS(  alpha_rd ) 

DUM_2  =  SQRT(  R_km*^2  -  (  SIN(  alpha_rd  )  *  Re_km  )**2  ) 
dkm  =  DUM_1  +  DUM_2 

DUM_1  =  R_km**2  +  Re_km**2  -  dkm**2 
DUM_2  =  2.0  *  R_km  *  Re_km 
theta_rd  =  2.0  •  ACOS(  DUM_1  /  DUM_2  ) 

D_Es_km  =  Re_km  ♦  theta_rd 

Compute  the  incidence  angle  for  a  curved  earth. 

DUM_1  =  SIN(  theta_rd  /  2.0 ) 

DIJM_2  =  1  +  hEs_km  /  Re_km  -  COS(  theta_rd  /  2.0 ) 

IF  (  DUM_2  .LT.  1.0  )  THEN 

IF  (  1.0e38  *  DUM_2  .GT.  DUM_1 )  THEN 
phi_cutEs_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

ELSE 

phi_cutEs_rd  =  pi  /  2.0 
END  IF 

ELSE 

phi_cutEs_rd  =  ATAN2(  DUM_1,  DUM_2  ) 

ENDff 

Compute  the  "secant  corrected"  factor  k. 

Kf  =  k_VALUE(  D_Es_km  ) 

Compute  the  maximum  usable  frequency  for  the  Es  layer  cut-off  frequency. 
CTF_Es_MHz  =  Kf  *  foEs_MHz  /  COS(  phi_cutEs_rd  ) 

END  IF 


Pick  the  larger  of  the  two  E  and  Es  cutoff  frequencies.  At  present,  the 
one-hop  modes  should  always  exceed  the  cut-off  frequencies.  This  result 
will  change  when  multihop  F-layer  reflections  are  included. 


E_cut_flag  =  .FALSE. 

Es_cut_flag  =  .FALSE. 

ff  (  (  F2_flag(i  DST)  .OR.  Fl_flag(i_DST)  )  .AND.  - 
(  CTF_E_\ffl2  .GT.  f_LINK  MHz  - 
OR.  CTF_Es_MHz  GT.  f_LINK_MHz  )  )  THEN 
IF  (  CTF_E_MH2  GT.  CTF_Es_MH2  )  THEN 
E_cut_MH2  =  CTF_E_MHz 
E_cut_flag  ^  .TRUE. 

Es_cut_flag  =  .FALSE. 

ELSE 

E_cut_MHz  =  CTF_Es_MHz 
Es_cut_flag  =  .TRUE. 

E_cut_flag  =  .FALSE. 

END  IF 
END  IF 

Determine  if  an  HF  link  exists  at  the  current  distance  independent  of 
E-  or  Es'layer  cutoff. 

LINK_flag(i_DST)  =  .FALSE. 

IF  (  E_flag(i_DST,l)  .OR.  E  flag(i  DST, 2)  - 
OIL  Es_flag(i_DST,l)  .OR.  Es  flag(i_DST,2)  - 
.OR.  F2_flag(i_DST)  .OR.  Fl_fiag(i_DST)  )  THEN 

LINK_flag(i_DST)  -  .TRUE. 

Update  all  HF  link  probability  bins 

CALL  binFIL3(  i_DST,  i_HOUR,  f_LINK_MHz,  fMHzJow,  fMHz_hgh,  - 
fMHz_km_hr_bin,  fMHz_km_bin,  N_FRQ  ) 

CALL  binFIL3(  i_DST,  i_HOUR,  a_LINK_dg,  adg  low,  adg_hgh,  - 
adg_km_hr_bin,  adg_km_bin,  N_ANG  ) 

CALL  binFIL3(  i_DST,  i_HOUR,  h_LINK_km,  hkmjow,  hkm_hgh,  •• 
hkm_km_hr_bin,  hkm_km_bin,  N_HGT  ) 

Update  frequency-conditional  take-off  angle  mean  bins. 

i_FRQ  =  INT(  (  f_LINK_MHz  -  fMHzJow  )  /  d_f  )  +  1 

IF  (  f_LINK_MHz  .LE.  fMHzJow  )  THEN 

ANG_km_hr_frq(iJDST,i_HOUR,0,l)  =  - 


ANG_km_hr_frq(i_DST,i_HOUR,0,l)  - 

+  1.0 

ANG_km_hr  frq(i_OST,i_HOUR,0,2)  = - 

ANG_km_hr_frq(i_DST,i_HOUR,0,2)  - 
+  a_LINK_dg 

ELSE  IF  (  f_LINK_MH2  GT.  fMH2_hgh  )  THEN 

ANG_km_hr_frq(i_DST,i_HOUR,N_FRQ+l,l)  =  - 

ANG_km_hr_frq(i_DST,i_HOUR,N_FRQ+ 1,1)- 
+  1.0 

ANG_km_hr_frq(i_DST,i_HOUR,N_FRQ+l,2)  =  - 

ANG_km_hr_frq(i_DST,i_HOUR,N_FRQ+l  ,2)  - 
+  a_LINK_dg 


ELSE 

ANG_km_hr_frq(i_DST,i_HOUR,i_FRQ,l)  =  - 

ANG_km_hr_frq(i_DST,i_HOUR,i_FRQ,l)  - 
+  1.0 

ANG_km_hr_frq(i_DST,i_HOUR,i_FRQ,2)  =  - 

ANG_km_hr_frq(i_DST,i_HOUR,i_FRQ,2)  - 
+  a_LINK_dg 


END  IF 

"  If  output  is  not  for  "*.LNK"  files,  that  is,  MONTHLY_flag  =  .FALSE., 
"  then  increment  appropriate  bin  values  in  frequency  bins. 

IF  ( .NOT.  MONTHLY_flag )  THEN 

DO  i_DISP  =  1,  N_DISP 

IF  ( f_LINK_MHz  GT.  f_limit(i_DISP,l)  - 

.AND.  f_LINK_MHz  .LE.  f_limit(i_DISP,2)  )  THEN 

f_hr_bin(i_DST,i_HOUR,i_DISP)  =  - 

f_hr_bin(i_DST,i_HOUR,i_DISP)  + 1.0 

f_bin(i_DST,i_DISP)  =  f_bin(i_DST,i_DISP)  +  1.0 

END  IF 

END  DO 

END  IF 
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Determine  whether  or  not  E  or  £s-layer  cutoff  occurred  and  increment  the 
appropnate  bins. 


IF  (  E_cut_MHz  GT.  f_LINK_MHz  )  HIEN 

IF  ( E_cut  flag  )  THEN 
N_km_hr_cutE(i_DST,i_HOUR)  =  - 

N_km_hr_cutE(i_DST,i_HOUR)  +  1.0 
N_km_cutE(i_DST)  =  N_km_cutE(i_DST)  +  1 .0 
END  IF 

IF  (  Es_cut_flag )  THEN 
N_km_hr_cutEs(i_DST,i_HOUR)  =  - 

N_km_hr_cutEs(i_DST,i_HOUR)  +  1.0 
N_km_cutEs(i_DST)  =  N_km_cutEs(i_DST)  +1.0 
END  IF 

END  IF 
END  IF 

Output  statements  are  used  to  chaeck  HFLINKS  calculations.  Normally, 
these  lines  are  not  compiled. 

IF  (  ( i_HOUR  EQ.  1  OR.  i_HOUR  EQ.  24  )  .AND.  D_km(i_DST)  - 
GT.  1600.0 )  THEN 

WRIT£(S  '*')  '*********************************************• 
writers!*)  'D_km: D_km(i_DST) 

WRITE(5,*)  'd_f; d_f, '  d_a. d_a, '  d_h:  d_h 
WRITE(5,*)  'foF2_MHz: foF2_MHz,’  hF2_km:  ',hF2_km 
WRITE(5,*)  'MUF_1F2_MHz;  MUF_lF2_MHz(i_DST) 
WRITE(5,*)  'foFl_MHz;  foFl_MHz,'  hFl_km:  ',hFl_km 
WRITE(5,*)  'MUF_lFl_MHz; MUF_lFl_MHz(i_DST) 
WRITE(5,*)  'foE_MHz: foE_MHz,’  hE_km:  ’,hE_km 
WRITE(5,*)  'MUF_1E_MHz:  MUF_lE_MHz(i_DST) 

WRITE(5,*)  'MUF_2E_MHz. MUF_2E_MHz(i_DST) 

WRITE(5,*)  'foEsJMHz: foEs_MHz,'  hEs_km;  ’,hEs_km 
WRITE(5,*)  'MUF_lEs_MHz; MUF_lEs_MHz(i_DST) 
WRITE(5,*)  'MUF_2Es_MHz; MUF_2Es_MH2(i_DST) 
WRITE(5,*) 'Re_km.  ',Re_km, 'R_km:  ’,R_km 
WRITE(5,*)  'alpha_dg:  ',rddg*alphajrd,  'dkm;  dkm 
WRITE(5,*)  'CTF_E_MHz; CTF_E_MHz,'  D_E_km:  ',D_E_km 
WRITE(5,*)  'CTF_Es_MHz: CTF_Es_MHz,'  D_E5_km;  ',D_Es_km 
WRITE(5,*)  T2_flag. F2_flag(i_DST) 

WRITE(5,*)  'phi_cutE_dg: rddg  *  phi_cutE_rd 
WRITE(5,*)  'phi_cutEs_dg; rddg  *  phi  cutEs  rd 
WRITE(5,*)  i_DAY,  i_HOUR  'f_LINK_MHz:  f_LINK_MHz 


Vi?JTE(5,*)  'a_LINK_dg: a_LINK_dg 
WRITE(5,*)  ■h_LINK_km: h_LINK_km 
WRITE(5,*)  •LINK_flag: LINK_flag(i_DST) 
WRITE(5.*)  "Type  <1>  to  continue" 
REAIX5.*)ONE 
END  IF 

END  DO 

RETURN 

END 


SUBROUTINE  k_VALUE 

Purpose;  To  compute  the  'secant-corrected'  effect  of  a  curved  ionosphere 


REAL*4  FUNCTION  k_VALUE(  D ) 

REAL  *4  D,  D_smp(17),  k_smp(17),  m_k,  b_k 

DATAD  smp/0.0,231.9,318.8,376.8,492.8,608.7,782.6,985.5,1246.4,- 
2800.0,3014.5,3205.8,3373.9,3536.2,3687.0,3884.1,- 
4000.0/ 

DATA  k_smp/l  .0, 1 .0, 1 .0007, 1 .0014, 1 .0035, 1 .0058, 1 .01 1 1, 1 .0188,- 
1.0294,1.1047,1.1153,1.1259,1.1365,1.1471,1.1612,- 
1.1772,1.1871/ 

IF  (  D  .LT.  D_smp(l)  )  THEN 
k_VALUE  =  k_smp(l) 

RETURN 
END  IF 

IF  (  D  .GE.  D_smp(17)  )  THEN 
k_VALUE  =  k_smp(17) 

RETURN 
END  IF 

DOk  =  2,  17 

IF  ( D_smp(k-1)  LE.  D  AND.  D  LT.  D_smp(k)  )  THEN 

DUM_1  =  D_smp(k)  -  D_smp(k-1) 
m_k  =  (  k_smp(k)  -  k_smp(k-l)  )  /  DUM_1 


b_k  =  (  k_smp(k-l)  *  D_smp(k)  >  k_smp(k)  •  D_smp(k-1) )  /  DUM_1 

k_VALUE  =  m_k  *  D  +  b_k 

RETURN 

END  IF 

END  DO 

RETURN 

END 


SUBROUTINE  binFILS 

Purpose:  Increment  density  function  bin  corresponding  to  input  value 

SUBROUTINE  binFIL3(  i_l,  i_2,  Vr,  Vr_low,  Vr_hgh,  bin_3,  bin_2,  N  bins  ) 

REAL*4  bin_3(l :  10,1 :24, 0:61) 

REALM  bm_2(l:  10,0:61) 

REAL*4  Vr,  Vrjow,  Vr_hgh 
INTEGER*4  N_bins,  i_l,  i_2 

LOGICAL*!  B_flag 

IF  (  Vr  XE.  Vrjow  )  THEN 
bin_3(i_l,i_2,0)  =  bin_3(i_l,i_2,0)  +  1.0 
bin_2(i_l,0)  =  bin_2(i_l,0)  +  1.0 
ELSE  IF  (  Vr  .GT.  Vr_hgh )  THEN 

bin_3(i_l,i_2,N_bins+l)  =  bin_3(i  l,i_2,NJ)ins+l)  +  l.O 
bin_2(i_l,N_bins+l)  =  bin_2(i  l,N_bins+l)  +1.0 
ELSE 
ibin  =  1 

B_flag  =  .FALSE. 

d_Vr  =  (  Vr_hgh  -  Vrjow )  /  FLOAT(  N_bins  ) 

DO  WHILE  ( i_bin  .LE.  N_bins  AND.  NOT.  B_flag  ) 

Vr  min  =  Vrjow  +  ( i_bin  -  1 )  *  d_Vr 

Vr_max  =  Vr_min  +  d_Vr 

IF  (  Vr  GT.  Vr_min  .AND.  Vr  .LE.  Vr_max  )  THEN 
bin_3(i  J,i_2,i_bin)  =  bin_3(i  J,i_2,i_bin)  +1.0 
bin_2(i_l,i_bin)  =  bin_2(ij,i_bin)  +  1.0 
B_flag=.TRUE. 

END  IF 


i_bin  =  i_bin  +  1 
END  DO 
END  IF 

RETURN 

END 


"  SUBROUTINE  PARMBIN 

tl 

"  Purpose:  Enter  parameter  values  from  UAG-23.NEW  formatted  files  into 
"  appropriate  arrays  holding  all  hourly  values  for  a  given  month. 

SUBROUTINE  PARMBIN(  i_DAY,  i_HOUR,  i_CODE,  P_value,  C_value,  D_value ) 

REAL*4  P_value 

INTEGER*4  i_DAY.  i_HOUR,  i_CODE 
CHARACTER*  1  C_value,  D_value 

REAL*4  foF2,  fxF2,  fzF2,  M3000F2,  hF2,  hpf2,  foFl,  ficFl,- 
M3000F1,  hFl,  hF,  foE,  foE2,  hE,  hE2,  foEs,- 
fxEs,  fbEs,  fEs,  hEs,  foFldS,  fmin,  M3000Fld5,  hfldS,- 
fol,  fxl,  fml,  12000,  n,  Ixxx 

”  CHARACTER*  1  QfoF2,  QfxF2,  QfzF2,  QM3000F2,  QhF2,  Qhpf2,  QfoF  1 ,  QfxF  1 
•'  QM3000F 1 ,  QhF  1 ,  QhF,  QfoE,  QfoE2,  QhE,  QhE2,  QfoEs,- 

"  QficEs,  QfbEs,  QfEs,  QhEs,  QfoFldS,  Qfmin,  QM3000Fld5,- 

"  QhfldS,  Qfol,  Qfxl,  Qfml,  QI2000,  QI,  QIxxx 

"  CHARACTER*!  DfoF2,  DfxF2,  DfzF2,  DM3000F2,  DhF2,  DhpfZ,  DfoFl,  DfxFl,- 
"  DM3000F1,  DhFl,  DhF,  DfoE,  DfoE2,  DhE,  DhE2,  DfoEs,- 

"  DfxEs,  DfbEs,  Dffis,  DhEs,  DfoFldS,  Dfmin,  DM3000Fld5,- 

"  Dhfl  d5,  Dfol,  Dfxl,  Dfml,  DI2000,  DI,  DIxxx 

"  Defme  common  blocks 

COMMON/IONSNP/foF2(31,24),  M3000F2(31,24),  hF2(31,24),  foFl(31,24),- 
M3000F  1(3 1,24),  hFl(31,24),  hF(31,24),  foE(31,24),- 
hE(3 1,24),  foEs(3 1,24),  fbEs(3 1,24),  fEs(3 1,24),- 
hEs(31,24),  fmin(31,24),  fxl(31,24) 

IF  ( i_CODE  .EQ.  1  )  THEN 

foF2(i_DAY,i_HOUR)  =  P_value 
"  QfoF2(i_DAY,i_HOUR)  =  Q_char 
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DfoF2(i_DAY,i  HOUR)  =  D_char 
END  IF 


IF  ( i_CODE  EQ.  2 )  THEN 
fxF2(i_DAY,i_H0UR)  *  P_value 
QfxF2(i_DAY,i_H0UR)  =  Q_char 
DfxF2(i__DAY,i_H0UR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  3  )  THEN 
fzF2(i_DAY,i_H0UR)  =  P_value 
Qf2F2(i_DAY,i_H0UR)  =  Q_char 
DfzF2(i_DAY,i_H0UR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  4  )  THEN 

M3000F2(i_DAY.i_HOUR)  =  P_value 
QM3000F2(i_DAY,i_HOUR)  =  Q_char 
DM3000F2(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  5  )  THEN 

hF2(i  DAY,i  HOUR)  =  P_value 
QhF2a_DAY,i_HOUR)  =  Q_char 
DhF2(i_DAY,i_HOUR)  =  D_char 
END  IF 


IF  ( i_CODE  .EQ.  6 )  THEN 
hpF2(i_DAY,i_HOUR)  =  P_vaiue 
QhpF2(i_DAY,i_HOUR)  =  Q_char 
bhpF2(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF(i_CODE.EQ.7)THEN 

foFl(i_DAY,i_HOUR)  =  P_value 
QfoFl(i_DAY,i_HOUR)  =  Q_char 
DfoFl(i_DAY,i_HOUR)  =  D_char 
END  IF 


IF  ( i_CODE  .EQ.  8  )  THEN 
fxFl(i_DAY,i_HOUR)  =  P_value 
QfxFl(i_DAY,iJHOUR)  =  Q_char 
DfxFl(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  9  )  THEN 

M3000Fl(iJDAY,i_HOUR)  =  P_value 


QM3000Fl(i_DAY,i  HOUR)  =  Q_char 
DM3000Fl(i_DAY,rHOUR)  =  D_char 
END  IF 

ff  ( i_CODE  .EQ.  10  )  THEN 

hFl(i_DAY,i_HOUR)  =  P_value 
QhFl(i_DAY,i_HOUR)  =  Q_char 
DhFl(i  DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  1 1  )  THEN 
hF(i_DAY,i_HOUR)  =  P_value 
QhF(i_DAY,i_HOUR)  =  Q_char 
DhF(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  12  )  THEN 

foE(i_DAY,i_HOUR)  =  P_value 
QfoE(i_DAY,i_HOUR)  =  Q_char 
DfoE(i_DAY,rHOUR)  =  D_char 
END  IF 


IF  ( i_CODE  .EQ.  13  )  THEN 
foE2(i_DAY,i_HOUR)  =  P_value 
QfoE2(i_DAY,i_HOUR)  =  Q_char 
DfoE2(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  14  )  THEN 

hE(i_DAY,i_HOUR)  =  P_value 
QhE(i_DAY,i_HOUR)  =  Q_char 
DhE(i_DAY,i_HOUR)  =  D_char 
END  IF 


IF  ( i_CODE  .EQ.  15  )  THEN 
hE2(i_DAY,i_HOUR)  =  P_value 
QhE2(i_DAY,i_HOUR)  =  Q_char 
DhE2(i_DAY,i_HOUR)  =  D_char 
ENDff 

IF  ( i_CODE  .EQ.  16  )  THEN 

foEs(i_DAY,i_HOUR)  =  P_value 
QfoEs(i_DAY,i_HOUR)  =  Q_char 
DfoEs(i_DAY,i_HOUR)  =  D_char 
END  IF 


IF  ( i_CODE  .EQ.  17  )  THEN 


fxEs(i_DAY,i_HOUR)  =  P_value 
QfxEs(i_DAY,i_HOUR)  =  Q_char 
DfxEs(i  DAY.i_HOUR)  =  D_char 
END  IF 

IF  ( i  CODE  .EQ.  18  )  THEN 
fbfo(i_DAY,i_HOUR)  =  P_value 
QfbEs(i_DAY,i_HOUR)  =  Q_char 
DfbEsOlDAY.LHOUR)  =  D_char 
ENDEF 

IF  ( i_CODE  EQ.  19  )  THEN 
fEs(i  DAY,i_HOUR)  =  P_vaIue 
Q£Es(i_DAY,i_HOUR)  =  Q_char 
DfEs(i_DAY.i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  EQ.  20  )  THEN 

hEs(i_DAY,i_HOUR)  =  P_value 
QhEs(i_DAY,i_HOUR)  =  Q_char 
DhEs(i_DAY,i_HOUR)  =  D_char 
END  IF 


JF  ( i  CODE  .EQ.  21 )  THEN 
foFld5(i_DAY,i_HOUR)  =  P.value 
QfoFld5(i_DAY,tHOUR)  =  Q_char 
DfoFld5(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  EQ.  22  )  THEN 

finin(i_DAY,i_HOUR)  =  P_value 
Qfimn(i_DAY,i_HOUR)  =  Q_char 
Dfinin(i_DAY,i_HOUR)  =  D_char 
END  IF 


IF  ( i_CODE  .EQ.  23  )  THEN 
M3000Fld5(i_DAY,i_HOUR)  =  P_value 
QM3000Fld5(i_DAY,i_HOUR)  =  Q_char 
DM3000Fld5(i_DAY,i_HOUR)  =  D_^char 
END  IF 

IF  ( i_CODE  .EQ.  24  )  THEN 
hFld5(i_DAY,i_HOUR)  =  P_value 
QhFld5(i_DAY,i_HOUR)  =  Q_char 
DhFld5(i_DAY,i_HOUR)  =  D_char 
END  IF 


IF  ( i_CODE  EQ.  25  )  THEN 
foI(i_DAY,i_HOlJR)  =  P_value 
QfoI(i_DAY,i_HOUR)  =  CLchar 
DfoI(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  EQ.  26  )  THEN 
fxI(i_DAY.i_HOUR)  =  P_value 
QfxI(i_DAY,i_HOUR)  =  Q_char 
DfxI(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  27  )  THEN 
fmI(i_DAY,i_HOUR)  =  P_value 
QfmI(i_DAY,i_HOUR)  =  Q_char 
DfmI(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  28  )  THEN 
I2000(i_DAY,i_HOUR)  =  P_value 
QI2000(i_DAY,i_HOUR)  =  Q_char 
DI2000(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i  CODE  .EQ.  29  )  THEN 
n(rDAY,i_HOUR)  =  P_value 
QI(i_DAY,i_HOUR)  =  Q_char 
DI(i_DAY,i_HOUR)  =  D_char 
END  IF 

IF  ( i_CODE  .EQ.  30  )  THEN 
Ixxx(i_DAY,i_HOUR)  =  P_value 
QIxxx(i_DAY,i_HOUR)  =  Q_char 
DIxxx(i_DAY,i_HOlJR)  =  D_char 
END  IF 

RETURN 

END 
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APPENDIX  C  lONOLINK  FREQUENCY  DENSITY  PLOTS 


This  appendix  contains  two  types  of  plots  describing  frequency  availability  for  oblique  HF 
propagation.  This  data  was  derived  from  UAG-23-formatted  ionosonde  data  measured  at 
Scott  Base  in  Antarctica.  The  years  of  1975  and  1979  were  chosen  for  this  analysis.  The 
1975  year  corresponded  to  low  sunspot  numbers  while  1979  experienced  much  higher 
sunspot  numbers.  Each  calender  year  was  divided  into  two  6-month  periods,  one  for 
maximum  solar  zenith  angle  (minimum  sun  visibility)  from  April  to  September,  and  the  second 
period  for  minimum  zenith  angle  (maximum  sun  visibility)  from  October  through  March.  Note 
that  the  1975  ionosonde  data  did  not  contain  F1-,  E-,  or  Es-layer  data,  only  F2-layer  values. 
Since  1975  experienced  a  low  sunspot  number  on  average  (=22)  versus  1979  (=  153),  the 
lack  of  data  did  not  present  a  significant  reduction  in  measurement  validity.  Critical 
frequencies  for  these  layers  were  provided  in  the  1979  data  set.  The  following  table  provides 
a  description  of  the  plots  as  well  as  an  index  to  locate  specific  plots. 

TABLE  C.1  INDEX  TO  FREQUENCY  DENSITY  PLOTS 
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TABLE  C.2  INDEX  TO  FREQUENCY  DENSITY  PLOTS 
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PROPAGATION  MODE  AVAILABILITY:  50-KM  LINK 
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PROPAGATION  MODE  AVAILABILITY:  2000-KM  LINK 

APRIL-SEPTEMBER,  1975 
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TABLE  C.3  INDEX  TO  FREQUENCY  DENSITY  PLOTS 


JAN-MAR  &  OCT-DEC 
(MAXIMUM  SUN) 
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PROPAGATION  MODE  AVAILABILITY:  50-KM  LINK 
JANUARY-MARCH  &  OCTOBER-DECEMBER,  1975 
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PROPAGATEON  MODE  AVAILABILITY:  200-KM  LINK 
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PROPAGATION  MODE  AVAILABILITY:  1000-KM  LINK 
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TABLE  C.4  INDEX  TO  FREQUENCY  DENSITY  PLOTS 


JAN-MAR  &  OCT-DEC 
(MAXIMUM  SUN) 
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PROPAGATION  MODE  AVAILABILITY:  50-KM  LINK 
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PROPAGATION  MODE  AVAILABILITY:  2000-KM  LINK 
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TABLE  C.5  INDEX  TO  FREQUENCY  DENSITY  PLOTS 
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PROPAGATION  MODE  AVAILABILITY:  1000-KM  LINK 
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APPENDIX  D  lONOSONDE  MEASUREMENT-PREDICTION 

COMPARISON 


This  appendix  contains  the  results  of  a  measurement-prediction  comparison  performed  using 
standard  MUF  values  for  oblique  HF  links  of  50-,  200-,  1000-,  and  2000-km  ranges.  The  table 
on  the  following  page  indexes  results  for  the  minimum,  average,  and  maximum  sunspot  numbers 
found  over  the  14  years  from  1970  to  1983  in  each  of  the  four  months  of  March,  June, 
September,  and  December. 


MONTH  1 

MARCH 

JUNE 

SEPTEMBER  j 

DECEMBER  | 

DIST 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE  # 

PROS 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

\TAR 

PAGE# 

15 

D-6 

24 

D-45 

14 

D-84 

17 

D-123 

FOT 

/ 

to 

/ 

to 

/ 

t 

L  / 

/ 

to 

1977 

D-9 
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D-1 26 

MIN 
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D-10 
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SSN 
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to 
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to 

/ 

to 

/ 

to 
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1980 

D-78 
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D-1 17 
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D-79 
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D-82 
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The  results  for  each  month  and  SSN  value  (min,  avg,  or  max)  are  preceded  in  the  appendix 
by  this  table  with  the  corresponding  block  of  the  table  highlighted.  The  four  months  correspond 
to  different  values  of  solar  zenith  angles.  The  sun  produces  much  less  ionospheric  ionization  in 
the  months  of  June  and  September  then  in  the  months  of  March  and  December  and  much  higher 
ionization  with  maximum  than  minimum  sunspot  number.  The  average  SSN  results  are  provided 
to  show  typical  values.  The  first  row  of  tiie  table  (highlighted  below)  corresponds  to  the 
minimum  sunspot  numbers  found  in  the  years  1970  to  1983  in  the  months  March,  June, 
September,  and  December.  The  minimum  SSN  value  in  March  was  determined  from  daily 
values  to  be  15.  In  June,  this  minimum  value  was  24.  Minimum  SSN  values  were  14  in 
September  and  17  in  December. 


MONTH 


MARCH  JUNE  SEPTEMBER 


DIST  SSN  PAGE  #  SSN  PAGE  #  SSN  PAGE  # 

PROB  /  to  /  to  /  to 

VALUE  YEAR  PAGE  #  YEAR  PAGE  #  YEAR  PAGE  # 


DECEMBER 


SSN  PAGE  # 
/  to 

YEAR  PAGE  # 


j.v-;.';,.: 

ID.h'i’ 

'  ' 

1  .  .y  . 

■'  wV."' 

\ ■  ' ' ' 

;  ■  . 

[  - 

■  ■‘if?  - 

■  it*; 

■  U*-' 

•  •  ‘■jf 

■  ]t^' 

■■  iT^-!:10'V 

•  ■  it;5(  ■■ 

: 

• . 

■  ..  ■ 

'  7  ik.;- 

■  Wim 

■ ' 

79 

D-19 

77 

D-58 

63 

D-97 

86 

D-136 

EOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-22 

1983 

D-61 

1972 

D-lOO 

1971 

D-139 

AVG 

79 

D-23 

77 

D-62 

63 

D-101 

86 

D-140 

SSN 

MUF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

1978 

D-26 

1983 

D-65 

1972 

D-104 

1971 

D-143 

79 

D-27 

77 

D-66 

63 

D-105 

86 

D-144 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-30 

1983 

D-69 

1972 

D-108 

1971 

D-147 

164 

D-32 

151 

D-71 

170 

D-110 

200 

D-149 

FOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1982 

D-35 

1980 

D-74 

1981 

D-113 

1979 

D-152 

MAX 

164 

D-36 

151 

D-75 

170 

D-114 

200 

D-153 

SSN 

MUF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

1982 

D-39 

1980 

D-78 

1981 

D-117 

1979 

D-156 

D-40 

to 

D-43 


D-118 

to 

D-121 


D-157 

to 

D-160 


The  average  SSN  values  for  March,  June,  September,  and  December  are  79  (1978),  77  (1983),  63 
(1972),  and  86  (1971). 
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JUNE 


MONTH 


SEPTEMBER 


DECEMBER 


DIST 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

PROB 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

15 

D-6 

24 

D-45 

14 

D-84 

17 

D-123 

EOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-9 

1975 

D-48 

1975 

D-87 

1975 

D-126 

15 

D-10 

24 

D-49 

14 

D-88 

17 

D-127 

MUF 

/ 

to 

to 

to 

/ 

to 

1977 

D-13 

1975 

D-52 

1975 

D-91 

1975 

D-130 

15 

D-14 

24 

D-53 

14 

D-92 

17 

D-131 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-17 

1975 

D-56 

1975 

D-95 

1975 

D-134 

W 


.t 
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lit- 
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VALUE 


164 

D-32 

FOT 

/ 

to 

1982 

D-35 

164 

D-36 

MUF 

/ 

to 

1982 

D-39 

164 

D-40 

HPF 

/ 

to 

1982 

D-43 

If  ■' 

.  if#) 

i(  ■ 

151 

/ 

1980 

D-71 

to 

D-74 

170 

/ 

1981 

D-110 

to 

D-113 

200 

/ 

1979 

D-149 

to 

D-152 

151 

D-75 

170 

D-114 

200 

D-153 

/ 

to 

/ 

to 

/ 

to 

1980 

D-78 

1981 

D-117 

1979 

D-156 

D-118 

to 

D-121 


D-157 

to 

D-160 


D-3 


The  maximum  SSN  values  for  March,  June,  September,  and  December  are  164  (1982),  151 
(1981),  170  (1980),  and  200  (1979). 
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AVG 


VALUE 


MONTH 

M.\RCH 

JUNE 

SEPTEMBER 

DECEMBER 

DIST 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

PROB 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

15 

D-6 

24 

D-45 

14 

D-84 

17 

D-123 

FOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-9 

1975 

D-48 

1975 

D-87 

1975 

D-126 

15 

D-10 

24 

D-49 

14 

D-88 

17 

D-127 

MUF 

/ 

to 

to 

to 

/ 

to 

1977 

D-13 

1975 

D-52 

1975 

D-91 

1975 

D-130 

15 

D-14 

24 

D-53 

14 

D-92 

17 

D-131 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-17 

1975 

D-56 

1975 

D-95 

1975 

D-134 

79 

D-19 

77 

D-58 

63 

D-97 

86 

D-136 

FOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-22 

1983 

D-61 

1972 

D-lOO 

1971 

D-139 

79 

D-23 

T 

D-62 

63 

D-101 

86 

D-140 

MUF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-26 

1983 

D.65 

1972 

D-104 

1971 

D-143 

79 

D-27 

77 

D-66 

63 

D-105 

86 

D-144 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-30 

1983 

D-69 

1972 

D-108 

1971 

D-147 

MONTH 


DIST 

PROB 

VALUE 


MIN 

SSN  MUF 
VALUE 


AVG 

SSN  MUF 
VALUE 


MAX 

SSN  MUF 
VALUE 


MARCH  1 

SSN 

PAGE# 

/ 

to 

YEAR 

PAGE# 

JUNE 


79 

D-23 

/ 

to 

1978 

D-26 

79 

D-27 

/ 

to 

1978 

D-30 

164 

D-32 

/ 

to 

1982 

D-35 

164 

D-36 

/ 

to 

1982 

D-39 

164 

D-40 

/ 

to 

1982 

D-43 

SSN 

PAGE# 

/ 

to 

YEAR 

PAGE# 

24 

D-45 

/ 

to 

1975 

D-48 

24 

D-49 

to 

1975 

D-52 

24 

D-53 

/ 

/ 

to 

1975 

D-56 

77 

D-58 

/ 

to 

1983 

D-61 

77 

D-62 

/ 

to 

1983 

D-65 

77 

D-66 

/ 

to 

1983 

D-69 

D-71 

to 

D-74 


D-75 

to 

D-78 


SEPTEMBER 

DECEMBER 

SSN 

PAGE# 

SSN 

PAGE# 

/ 

to 

/ 

to 

YEAR 

PAGE# 

YEAR 

PAGE# 

14 

D-84 

17 

D-123 

/ 

to 

/ 

to 

1975 

D-87 

1975 

D-126 

14 

D-88 

17 

D-127 

to 

/ 

to 

1975 

D-91 

1975 

D-130 

14 

D-92 

17 

D-131 

/ 

to 

/ 

to 

1975 

D-95 

1975 

D-134 

63 

D-97 

86 

D-136 

/ 

to 

/ 

to 

1972 

D-lOO 

1971 

D-139 

63 

D-101 

86 

D-140 

/ 

to 

/ 

to 

1972 

D-104 

1971 

D-143 

63 

D-105 

86 

D-144 

/ 

to 

/ 

to 

1972 

D-108 

1971 

D-147 

170 

D-110 

200 

D-149 

/ 

to 

/ 

to 

1981 

D-113 

1979 

D-152 

170 

D-114 

200 

D-153 

/ 

to 

/ 

to 

1981 

D-117 

1979 

D-156 

170 

D-118 

200 

D-157 

/ 

to 

/ 

to 

1981 

D-121 

1979 

D-160 
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FOT  COMPARISON  MARCH  1977  SSN:  15  (MINIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 
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dVONOI  SdVSV  — aONOSONOI 


FOT  COMPARISON  MARCH  1977  SSN:  15  (MINIMUM) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 
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dVONOI  SdVSV  —  SaNOSONOI 
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MUF  COMPARISON  MARCH  1977  SSN:  15  (MINIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


I. 


D-10 


lONOSONDE  ASAPS  — ^  lONCAP 


MU  F  COMPARISON  MARCH  1977  SSN:  15  (MINIMUM) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 
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lONOSONDE  —  ASAPS  — lONCAP 


MUF  COMPARISON  MARCH  1977  SSN:  15  (MINIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I. 
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lONOSONDE  — ^  ASAPS  — ^  lONCAP 


MUF  COMPARISON  MARCH  1977  SSN:  15  (MINIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 
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lONOSONDE  —  ASAPS  —  lONCAP 


HPF  COMPARISON  MARCH  1977  SSN:  15  (MINIMUM) 
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HPF  COMPARISON  MARCH  1977  SSN:  15  (MINIMUM) 
RANGE:  290  KM  SCOTT  BASE  MIDPOINT 
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HPF  COMPARISON  MARCH  1977  SSN:  IS  (MINIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I. 


D-16 


lONOSONDE  ASAPS  — ^  lONCAP 


HPF  COMPARISON  MARCH  1977  SSN:  15  (MINIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 
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lONOSONDE  — ^  ASAPS  lONCAP 


MONTH 


MARCH 


MIN 

SSN 

VALUE 


DIST  SSN 
PROB  / 
VALUE  YEAR 


15 

/ 

1977 


15 

MUF  / 
1977 


15 

/ 

1977 


AVG 

SSN  MUF 
VALUE 


MAX 

SSN  MUF 
VALUE 


PAGE# 

to 

PAGE# 


D-6 

to 

D-9 


D-10 

to 

D-13 


D-14 

to 

D-17 


■i5> 


D-32 

to 

D-35 


D-36 

to 

D-39 


D-40 

to 

D-43 


JUNE 


SSN  PAGE  # 


SEPTEMBER 


SSN  PAGE  # 


DECEMBER 


YEAR  PAGE#!  YEAR  PAGE# 


D-45 

to 

D-48 


D-49 

to 

D-52 


D-53 

to 

D-56 


D-58 

to 

D-61 


D-62 

to 

D-65 


D-66 

to 

D-69 


D-71 

to 

D-74 


D-75 

to 

D-78 


D-84 

to 

D-87 


D-88 

to 

D-91 


D-92 

to 

D-95 


D-97 

to 

D-lOO 


D-101 

to 

D-104 


D-105 

to 

D-108 


D-110 

to 

D-113 


D-114 

to 

D-117 


D-118 

to 

D-121 


SSN 

PAGE# 

/ 

to 

YEAR 

PAGE# 

17 

D-123 

/ 

to 

1975 

D-126 

17 

D-127 

/ 

to 

1975 

D-130 

17 

D-131 

/ 

to 

1975 

D-134 

86 

D-136 

/ 

to 

1971 

D-139 

86 

D-140 

/ 

to 

1971 

D-143 

86 

D-144 

/ 

to 

1971 

D-147 

200 

D-149 

/ 

to 

1979 

D-152 

200 

D-153 

/ 

to 

1979 

D-156 

200 

D-157 

/ 

to 

1979 

D-160 

D-18 


FOT  COMPARISON  MAR  1978  SSN:  79  (AVERAGE) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 
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D-19 


lONOSONDE  —  ASAPS  — —  lONCAP 


FOT  COMPARISON  MAR  1978  SSN:  79  (AVERAGE) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 
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lONOSONDE  — ASAPS  — lONCAP 


FOT  COMPARISON  MAR  1978  SSN:  79  (AVERAGE) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


D-21 


lONOSONDE  — ^  ASAPS  — ^  lONCAP 


FOT  COMPARISON  MAR  1978  SSN:  79  (AVERAGE) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


I. : 
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lONOSONDE  — ASAPS  — ^  lONCAP 


MU F  COMPARISON  MAR  1978  SSN:  79  (AVERAGE) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 
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lONOSONDE  —  ASAPS  —  lONCAP 


MUF  COMPARISON  MAR  1978  SSN:  79  (AVERAGE) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 
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lONOSONDE  — ^  ASAPS  — ^  lONCAP 


MUF  COMPARISON  MAR  1978  SSN:  79  (AVERAGE) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 
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lONOSONDE  — ^  ASAPS  lONCAP 


MUF  COMPARISON  MAR  1978  SSN;  79  (AVERAGE) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


lONOSONDE  —  ASAPS  — ^  lONCAP 


HPF  COMPARISON  MAR  1978  SSN:  79  (AVERAGE) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


dVONOI  SdVSV  — SaNOSONOI 


HPF  COMPARISON  MAR  1978  SSN:  79  (AVERAGE) 
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D-29 


lONOSONDE  — ASAPS  — —  lONCAP 


1. 


D-30 


MONTH 


MARCH 

JUNE 

SEPTEMBER 

DECEMBER 

DIST 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

PROB 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

15 

D-6 

24 

D-45 

14 

D-84 

17 

D-123 

EOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-9 

1975 

D-48 

1975 

D-87 

1975 

D-126 

MIN 

15 

D-10 

24 

D-49 

14 

D-88 

17 

D-127 

SSN 

MUF 

/ 

to 

to 

to 

/ 

to 

VALUE 

1977 

D-13 

1975 

D-52 

1975 

D-91 

1975 

D-130 

15 

D-14 

24 

D-53 

14 

D-92 

17 

D-131 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-17 

1975 

D-56 

1975 

D-95 

1975 

D-134 

79 

D-19 

77 

D-58 

63 

D-97 

86 

D-136 

FOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-22 

1983 

D-61 

1972 

D-lOO 

1971 

D-139 

AVG 

79 

D-23 

77 

D-62 

63 

D-101 

86 

D-140 

SSN 

MUF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

1978 

D-26 

1983 

D-65 

1972 

D-104 

1971 

D-143 

79 

D-27 

77 

D-66 

63 

D-105 

86 

D-144 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-30 

1983 

D-69 

1972 

D-108 

1971 

D-147 

TT^r” 

;  ■■  ] 

151 

D-71 

170 

D-110 

200 

D-149 

FOT 

■ 

•  :A 

/ 

to 

/ 

to 

/ 

to 

.  1 

1980 

D-74 

1981 

D-113 

1979 

D-152 

MAX 

151 

D-75 

170 

D-114 

200 

D-153 

SSN 

MUF 

/ 

to 

/ 

to 

/ 

to 

VALUE 

I 

1980 

D-78 

1981 

D-117 

1979 

D-156 

151 

D-79 

170 

D-118 

200 

D-157 

HPF 

/ 

to 

/ 

to 

/ 

to 

1980 

D-82 

1981 

D-121 

1979 

D-160 

FOT  COMPARISON  MAR  1982  SSN:  164  (MAXIMUM) 
RANGE:  SO  KM  SCOTT  BASE  MIDPOINT 


I 


D-32 


dVONOI  SdVSV  —  aONOSONOI 


FOT  COMPARISON  MAR  1982  SSN:  164  (MAXIMUM) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


I. 


D-33 


lONOSONDE  ASAPS  lONCAP 


FOT  COMPARISON  MAR  1982  SSN:  164  (MAXIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I. 


D-34 


lONOSONDE  — ASAPS  — ^  lONCAP 


D-35 


MUF  COMPARISON  MAR  1982  SSN:  164  (MAXIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 
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D-36 


lONOSONDE  — ^  ASAPS  —  lONCAP 


D-37 


MU F  COMPARISON  MAR  1982  SSN:  164  (MAXIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


D-38 


lONOSONDE  ASAPS  — ^  lONCAP 


MUF  COMPARISON  MAR  1982  SSN:  164  (MAXIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


1. 
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dVONOI  — SdVSV  — aONOSONOI 


HPF  COMPARISON  MAR  1982  SSN:  164  (MAXIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 
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D-40 


dVONOI  SdVSV  — —  aONOSONOI 


HPF  COMPARISON  MAR  1982  SSN:  164  (MAXIMUM) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


D-41 


dVONOI  SdVSV  aONOSONOI 


HPF  COMPARISON  MAR  1982  SSN:  164  (MAXIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I. 


D-42 


lONOSONDE  ^  ASAPS  — lONCAP 


I. 


D-43 


MONTH 

MARCH 

JUNE 

SEPTEMBER 

DECEMBER 

DIST 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

PROB 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

15 

D-6 

1  - 

1  -y- 

14 

D-84 

17 

D-123 

EOT 

/ 

to 

t 

1 

/ 

to 

/ 

to 

1977 

D-9 

b.  .  ..... 

1975 

D-87 

1975 

D-126 

MIN 

15 

D-10 

[■ 

14 

D-88 

17 

D-127 

SSN 

MUF 

/ 

to 

to 

/ 

to 

VALUE 

1977 

D-13 

j 

1975 

D-91 

1975 

D-130 

15 

D-14 

■ 

-  ipHjV- 

14 

D-92 

17 

D-131 

HPF 

/ 

to 

/ 

to 

/ 

to 

1977 

D-17 

1975 

D-95 

1975 

D-134 

79 

D-19 

77 

D-58 

63 

D-97 

86 

D-136 

FOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-22 

1983 

D-61 

1972 

D-lOO 

1971 

D-139 

AVG 

79 

D-23 

77 

D-62 

63 

D-101 

86 

D-140 

SSN 

MUF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

1978 

D-26 

1983 

D-65 

1972 

D-104 

1971 

D-143 

79 

D-27 

77 

D-66 

63 

D-105 

86 

D-144 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-30 

1983 

D-69 

1972 

D-108 

1971 

D-147 

164 

D-32 

151 

D-71 

170 

D-110 

200 

D-149 

FOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1982 

D-35 

1980 

D-74 

1981 

D-113 

1979 

D-152 

MAX 

164 

D-36 

151 

D-75 

170 

D-114 

200 

D-153 

SSN 

MUF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

1982 

D-39 

1980 

D-78 

1981 

D-117 

1979 

D-156 

164  D-40  151  D-79  170  D-118  200  D-157 


HPF  /  to  /  to  /  to  /  to 

1982  D-43  1980  D-82  1981  D-121  1979  D-160 


FOT  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


1. 


D-45 


lONOSONDE  — ^  ASAPS  — lONCAP 


FOT  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


I;. 


D-46 


lONOSONDE  ASAPS  — ^  lONCAP 


FOT  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I; 


D^7 


lONOSONDE  ASAPS  — lONCAP 


FOT  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


D-48 


dVONOI  — —  SdVSV  — SaNOSONOI 


MUF  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


Q 

\U 

N*  ^ 
X  UJ 
S  111 

eo 

X 

lU 


O  E  2  LL 

^  z  <  i 

goos 


D-49 


lONOSONDE  ASAPS  — ^  lONCAP 


MUF  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


D-50 


lONOSONDE  ASAPS  —  lONCAP 


MUF  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I. 


D-51 


lONOSONDE  ASAPS  — ^  lONCAP 


MUF  COMPARISON  JUNE  1975  SSN;  24  (MINIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


D-52 


iONOSONDE  ASAPS  — lONCAP 


HPF  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


lONOSONDE  ASAPS  — lONCAP 


HPF  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


D-55 


lONOSONDE  ASAPS  — ^  lONCAP 


HPF  COMPARISON  JUNE  1975  SSN:  24  (MINIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


D-56 


lONOSONDE  — ASAPS  — lONCAP 


MONTH 

MARCH  1 

JUNE 

1  SEPTEMBER 

1  DECEMBER 

DIST 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

PROB 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

15 

D-6 

24 

D-45 

14 

D-84 

17 

D-123 

EOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-9 

1975 

D-48 

1975 

D-87 

1975 

D-126 

MIN 

15 

D-10 

24 

D-49 

14 

D-88 

17 

D-127 

SSN 

MUF 

/ 

to 

to 

to 

/ 

to 

VALUE 

1977 

D-13 

1975 

D-52 

1975 

D-91 

1975 

D-130 

15 

D-14 

24 

D-53 

14 

D-92 

17 

D-131 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-17 

1975 

D-56 

1975 

D-95 

1975 

D-134 

79 

D-19 

63 

D-97 

86 

D-136 

FOT 

/ 

to 

/ 

to 

/ 

to 

1978 

D-22 

1972 

D-lOO 

1971 

D-139 

AVG 

79 

D-23 

63 

D-101 

86 

D-140 

SSN 

MUF 

/ 

to 

■HH 

HH|h 

/ 

to 

/ 

to 

VALUE 

1978 

D-26 

1972 

D-104 

1971 

D-143 

79 

D-27 

63 

D-105 

86 

D-144 

HPF 

/ 

to 

bHH 

/ 

to 

/ 

to 

1978 

D-30 

HfwB 

1972 

D-108 

1971 

D-147 

164 

D-32 

151 

D-71 

170 

D-110 

200 

D-149 

FOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1982 

D-35 

1980 

D-74 

1981 

D-113 

1979 

D-152 

MAX 

164 

D-36 

151 

D-75 

170 

D-114 

200 

D-153 

SSN 

MUF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

1982 

D-39 

1980 

D-78 

1981 

D-117 

1979 

D-156 

164 

D-40 

151 

D-79 

170 

D-118 

200 

D-157 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1982 

D-43 

1980 

D-82 

1981 

D-121 

1979 

D-160 

D-57 


FOT  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


I. 


D-58 


dVONOI  SdVSV  — ^  aONOSONOI 


FOT  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


I. 


D-59 


dVONOI  SdVSV  —  aaNOSONOI 


FOT  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I. 


D-60 


lONOSONDE  ASAPS  — ^  lONCAP 


FOT  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


I. 
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X  UJ 
«  UJ 
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X 

UJ 


D-61 


lONOSONDE  ASAPS  — ^  lONCAP 


MUF  COMPARISON  JUNE  1983  SSN;  77  (AVERAGE) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


I. 
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o 

z 

lU 
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III 

a: 

U- 


Q 
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N*  ^ 
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lU 
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CO 
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S 


D-62 


lONOSONDE  — ^  ASAPS  — lONCAP 


MU F  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


D-63 


lONOSONDE  — ASAPS  — ^  lONCAP 


MUF  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


1. 


D-64 


lONOSONDE  ASAPS  — ^  lONCAP 


MUF  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


D-65 


lONOSONDE  — ^  ASAPS  — lONCAP 


HPF  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


D-66 


lONOSONDE  ^  ASAPS  —  lONCAP 


HPF  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


D-67 


lONOSONDE  —  ASAPS  lONCAP 


HPF  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I  mu.V> 
wNgOlw 

3  i  lU  S?  2E  < 

g  S.O  O  o  D 

fe  X  s 

g  UJ 


D-68 


lONOSONDE  ASAPS  lONCAP 


HPF  COMPARISON  JUNE  1983  SSN:  77  (AVERAGE) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


D-69 


lONOSONDE  ASAPS  — ^  lONCAP 


MONTH 


1  MARCH 

1  JUNE 

1  SEPTEMBER 

1  DECEMBER 

DIST 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

PROB 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

15 

D-6 

24 

D-45 

14 

D-84 

17 

D-123 

EOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-9 

1975 

D-48 

1975 

0-87 

1975 

D-126 

MIN 

15 

D-10 

24 

D-49 

14 

D-88 

17 

D-127 

SSN 

MUF 

/ 

to 

to 

to 

/ 

to 

VALUE 

1977 

D-13 

1975 

D-52 

1975 

D-91 

1975 

D-130 

15 

D-14 

24 

D-53 

14 

0-92 

17 

D-131 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1977 

D-17 

1975 

D-56 

1975 

D-95 

1975 

D-134 

79 

D-19 

77 

D-58 

63 

D-97 

86 

D-136 

FOT 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-22 

1983 

D-61 

1972 

D-lOO 

1971 

D-139 

AVG 

79 

D-23 

77 

D-62 

63 

D-101 

86 

D-140 

SSN 

MUF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

1978 

D-26 

1983 

D-65 

1972 

D-104 

1971 

D-143 

79 

D-27 

77 

D-66 

63 

D-105 

86 

D-144 

HPF 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

1978 

D-30 

1983 

D-69 

1972 

D-108 

1971 

D-147 

164 

D-32 

170 

D-110 

200 

D-149 

FOT 

/ 

to 

/ 

to 

/ 

to 

1982 

D-35 

Li« 

1981 

D-113 

1979 

D-152 

MAX 

164 

D-36 

170 

D-114 

200 

D-153 

SSN 

MUF 

/ 

to 

-■> 

'  '•'■'1  V 

/ 

to 

/ 

to 

VALUE 

1982 

D-39 

j  infill- 

1981 

D-117 

1979 

D-156 

164 

D-40 

'.^.1  ' 

■  -WW' 

170 

D-118 

200 

D-157 

HPF 

/ 

to 

‘  -t*  •  . 

...  ■ 

/ 

to 

/ 

to 

1982 

0-43 

1981 

D-121 

1979 

D-160 

D-70 


FOT  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


D-71 


dVONOI  SdVSV  BQNOSONOI 


FOT  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


lONOSONDE  ASAPS  — ^  lONCAP 


FOT  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


■i. 


D-73 


lONOSONDE  —  ASAPS  lONCAP 


FOT  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 
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D-75 


MU  F  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


I. 


D-76 


lONOSONDE  — ^  ASAPS  — lONCAP 


MUF  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


D-77 


lONOSONDE  — ^  ASAPS  — ^  lONCAP 


MUF  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


t. 


D-78 


lONOSONDE  — ASAPS  — lONCAP 


HPF  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


1. 


>- 

o 

z 

lU 


o 

lU 

0^ 


o 

lU 
N  ^ 

So 

X 
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D-79 


lONOSONDE  —  ASAPS  lONCAP 


D-80 


HPF  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


D-81 


lONOSONDE  ASAPS  — lONCAP 


HPF  COMPARISON  JUNE  1980  SSN:  151  (MAXIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


CM 


D-82 


1  MARCH 

JU 

DIST 

SSN 

PAGE# 

SSN 

PROB 

/ 

to 

/ 

VALUE 

YEAR 

PAGE# 

YEAR 

15 

D-6 

24 

EOT 

/ 

to 

/ 

1977 

D-9 

1975 

MIN 

15 

D-10 

24 

SSN 

MUF 

/ 

to 

VALUE 

1977 

D-13 

1975 

15 

D-14 

24 

HPF 

/ 

to 

/ 

1977 

D-17 

1975 

79 

D-19 

77 

FOT 

/ 

to 

/ 

1978 

D-22 

1983 

AVG 

79 

D-23 

77 

SSN 

MUF 

/ 

to 

/ 

VALUE 

1978 

D-26 

1983 

79 

D-27 

77 

HPF 

/ 

to 

/ 

1978 

D-30 

1983 

164 

D-32 

151 

FOT 

/ 

to 

/ 

1982 

D-35 

1980 

MAX 

164 

D-36 

151 

SSN 

MUF 

/ 

to 

/ 

VALUE 

1982 

D-39 

1980 

164 

D-40 

151 

HPF 

/ 

to 

/ 

1982 

D-43 

1980 

D-: 


MONTH 


PAGE# 

to 

PAGE# 


D-45 

to 

D-48 


D-49 

to 

D-52 


D-53 

to 

D-56 


D-58 

to 

D-61 


D-62 

to 

D-65 


D-66 

to 

D-69 


D-71 

to 

D-74 


D-75 

to 

D-78 


1  SEPTEMBER 

1  DECEMBER 

SSN 

PAGE# 

SSN 

PAGE# 

/ 

to 

/ 

to 

YEAR 

PAGE# 

YEAR 

PAGE# 

i 

17 

D-123 

r 

■  -  ■  -1 

1 

/ 

to 

1 

■  '■ 

.  i  1 

1975 

D-126 

[■■■■JUT  - 

j 

17 

D-127 

I  '  .  .  .  ■ 

J 

/ 

tc 

' '  j 

1975 

D-130 

;  .  ■; 

r 

17 

D-131 

-  //  .  • 

/ 

to 

.  ’■ 

1975 

D-134 

63 

D-97 

86 

D-136 

/ 

to 

/ 

to 

1972 

D-lOO 

1971 

D-139 

63 

D-101 

86 

D-140 

/ 

to 

/ 

to 

1972 

D-104 

1971 

D-143 

63 

D-105 

86 

D-144 

/ 

to 

/ 

to 

1972 

D-108 

1971 

D-147 

170 

D-110 

200 

D-149 

/ 

to 

/ 

to 

1981 

D-113 

1979 

D-152 

170 

D-114 

200 

D-153 

/ 

to 

/ 

to 

1981 

D-117 

1979 

D-156 

170 

D-118 

200 

D-157 

/ 

to 

/ 

to 

1981 

D-121 

1979 

D-160 

FOT  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  50  KM  SCOTT- BASE  MIDPOINT 


I. 


D-84 


dVONOI  SdVSV  — aONOSONOI 


FOT  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 


I. 


D-85 


dVONOI  — SdVSV  BaNOSONOI 


FOT  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I. 


D-86 


lONOSONDE  — ASAPS  — lONCAP 


FOT  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


I. 


D-87 


lONOSONDE  — ASAPS  — lONCAP 


MUF  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


I. 


D-88 


lONOSONDE  — ^  ASAPS  — lONCAP 


MUF  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


D-89 


lONOSONDE  ASAPS  — lONCAP 


MUF  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


>- 

o 

z 

u 
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o 
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D-90 


dVONOI  SdVSV  — aONOSONOI 


MUF  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


1. 


D-91 


lONOSONDE  ASAPS  — lONCAP 


HPF  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


I. 


D-92 


dVONOI  SdVSV  — aONOSONOI 


HPF  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE;  200  KM  SCOTT  BASE  MIDPOINT 


1. 


D-93 


dVONOI  SdVSV  — ^  aONOSONOI 


HPF  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


I. 


D-94 


dVONOI  SdVSV  aONOSONOI 


HPF  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


I. 


D-95 


lONOSONDE  — ^  ASAPS  — lONCAP 


HPF  COMPARISON  SEPT  1975  SSN:  14  (MINIMUM) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 
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D-95 


FOT  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


D-97 


dVDNOI  SdVSV  aaNOSONOI 


FOT  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


i; 


D-98 


dVONOI  SdVSV  — SaNOSONOI 


FOT  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


D-99 


dVONOI  SdVSV  —  aONOSONOI 


FOT  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


D-100 


lONOSONDE  — ASAPS  — lONCAP 


MUF  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


CM 


D-101 


dVONOI  SdVSV  — ^  SaNOSONOI 


MUF  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 


D-102 


dVONOI  — SdVSV  — aaNOSONOI 


I. 
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D-103 


MUF  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 
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D-104 


lONOSONDE  — ^  ASAPS  lONCAP 


HPF  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  50  KM  SCOTT  BASE  MIDPOINT 


li 


D-105 


dVONOI  SdVSV  — aONOSONOI 


HPF  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  200  KM  SCOTT  BASE  MIDPOINT 
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D-106 


dVONOI  SdVSV  — SaNOSONOI 


HPF  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  1000  KM  SCOTT  BASE  MIDPOINT 


■ 


D-107 


lONOSONDE  ASAPS  — ^  lONCAP 


HPF  COMPARISON  SEPT  1972  SSN:  63  (AVERAGE) 
RANGE:  2000  KM  SCOTT  BASE  MIDPOINT 


It 


D-108 


lONOSONDE  — ^  ASAPS  — lONCAP 


VALUE 


AVG 


VALUE 


MAX 


VALUE 


MARCH 


JUNE 


MONTH 


SEPTEMBER 


DECEMBER 


DIST 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

SSN 

PAGE# 

PROB 

/ 

to 

/ 

to 

/ 

to 

/ 

to 

VALUE 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

YEAR 

PAGE# 

15 

D-6 

24 

D-45 

14 

D-84 

17 
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APPENDIX  E  METEOR  BURST  LINK  PERFORMANCE 


This  appendix  provides  predictions  of  usable  meteor  rate  (MR),  duty  cycle  (DC),  and  120-character 
message  throughput  versus  time  of  day.  These  values  are  provided  for  the  McMurdo-Byrd  link  for 
February,  July,  and  December  with  corresponding  legend  entries.  In  addition,  predictions  and 
measurements  of  link  throughput  are  also  provided  for  a  600-mile  CONUS  link  to  provide  a  validation 
point.  In  the  plot  legends,  the  "600-KM  PRED"  refers  to  the  predicted  throughput  curves  while  the 
corresponding  measurements  for  two  days  in  1989  are  depicted  in  the  plot  legends  as  "31-OCT-89"  and 
"8-NOV-89".  The  plots  are  presented  for  both  forward  error  correction  “FEC  ON"  at  42  03  and  48.75 
MHz  followed  by  "FEC  OFF"  for  the  same  frequencies.  The  MR,  DC,  and  throughput  values  are 
provided  as  separate  plots  for  each  case. 
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APPENDIX  F  HIGH-ERP  METEOR  BURST  LINK  EXPERIMENT 


This  appendix  contains  a  prepublication  copy  of  a  paper  to  be  published  in  the  1993  Ionospheric 
Effects  Symposium  proceedings.  It  describes  the  experiment  and  presents  performance  estimates. 
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HIGH-ERP  METEOR  BURST  LINK  EXPERIMENT 
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Service  Division  developed  the  SNOTEL  [20]  system  to  monitor  snowpack  for  runoff  management  using  over  650  remote  solar- 
powered  weather  stations  outfitted  with  MB  telemetry.  The  North  American  Air  Defense  Command  (NORAD)  installed  MB 
communication  links  to  provide  satellite  telemetry  backup  in  Alaska  as  well  as  interbase  communications  within  the  continental  US 
[21].  An  international  market  for  MBC  has  developed  due  to  the  significant  economic  and  political  costs  of  reliance  on  externally- 
controlled  satellite  systems.  International  government  and  civilian  users  of  MBC  for  message  traffic  or  telemetry  include  the 


ublic  of  China  [22],  Egypt,  and  Brazil.  Much  of  the 


I 


F-4 


usable  off-GCP  MB-link  common  volume.  A  6560  processor  selects  the  strongest  RSL 
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levels  for  a  dipole  antenna  elevated  to  one-wavelength  height 
above  ground  and  the  corresponding  measurements  at  the 
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4.8-kW  output  power  for  the  high-ERP  HPA  and  6-dB  greater  antenna  gain  (four  vereus  one  stacked-Yagi  combination),  the 
high-ERP  link  transmit  system  generates  about  12-dB  higher  ERP  than  the  refer  ence  link  transmit  system. 

Receive  Systems 

High-ERP  Link.  The  high-ERP  link  uses  a  receive  antenna 
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reference-link  6560  receiver.  Combining  the  Pf  (=  30  dBi),  G/  (=  20  dBi),  and  Gj-  (=  20  dBi)  values  for  the  reference  link  yields  an 
ERP  of  70  dB,  18  dB  below  the  corresponding  value  for  the  high-ERP  link.  The  HEMBLE  therefore  demonstrates  the  significant 
link  performance  improvement  achieved  by  the  combination  of  high-power  and  beamforming  antenna  arrays  as  compared  to  a 
nominal  MB  system  configuration. 


The  MRS  is  a  significant  capability  of  the  HEMBLE,  providing  near-simultaneous  well-calibrated  measurements  of  received 
signal  levels  (RSLs)  and  time-correlated  communications  performance  for  both  the  high-ERP  and  reference  MB  links.  In  this  way, 
a  direct  comparison  of  high-ERP  and  reference  link  channel  characteristics  and  communications  performance  can  be  made.  The 
MRS  consists  of  a  486/33  MHz  PC  with  an  optical  disk  drive  providing  a  1 -Gbyte  capacity.  Six  RSLs  are  recorded,  each  of  the  four 
RSLs  from  the  high-ERP  receive  array,  the  combined  high-ERP  array  RSL,  and  the  reference  link  RSL.  In  addition,  a  digitized 
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Fig.  8a  Northernmost  Beam  (15“)  I  I  F»g-  8b  Northern  Beam  (7.5“) 
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Fig.  9a.  MR  Values:  2  kbps  Burst  Rate  in  March  |  \  Fig.  9b.  MR  Values:  2  kbps  Burst  Rate  in  July 
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This  paper  describes  the  experimental  portion  of  ARPA’s  advanced  meteor  burst  demonstration  program.  Predicted  results  show 
that  a  high-ERP  MB  link  employing  a  high-gain,  steerable  array  can  provide  a  factor  of  ten  increase  in  the  diurnal  average  no¬ 
protocol  throughput.  This  result  occurs  despite  the  reduction  in  effective  DC  values  at  the  lower  burst  rates  due  to  overlapping  trail- 
scattered  signals.  The  steerable  array  permits  tracking  of  the  meteoric  hot  spots,  which  migrate  throughout  the  day  due  to  diurnal 
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